OOobbs2/106
|
| 特殊フレーム名 | 説明 |
| _blank | 空の新規フレーム |
| _default | 特殊。空のドキュメントがあると利用される |
| _self | 自身のフレーム (現在のドキュメントの更新などが無視される) |
| _parent | 親フレーム |
| _top | フレームツリーでの最上位フレーム |
| _beamer | サブフレーム |
_hidden は IDL ガイドに記載がありませんが、ドキュメントを非表示状態で開くには loadComponentFromURL メソッドの最後の引数に MediaDescriptor
で Hidden パラメータを指定します。
Dim aArgs(0) As New com.sun.star.beans.PropertyValue
aArgs(0).Name = "Hidden"
aArgs(0).Value = True
StarDesktop.loadComponentFromURL("private:factory/scalc","_blank",0, aArgs)
コントローラの com.sun.star.datatransfer.XTransferableSupplier インターフェースを利用します。
一方の (コピー元) ドキュメントのコントローラから getTransferable メソッドで XTransferable インターフェースを取得します。(このとき、選択範囲に相当するコンテンツが含まれていることに注意。) そして、もう一方のドキュメント (貼り付け先) のコントローラから insertTransferable メソッドで先のドキュメントから取得した XTransferable インターフェースを与えます。このメソッドは呼び出すとすぐに挿入されます。(このときも、セルカーソルのある位置に貼り付けられることに注意。)
Sub Copy_Transferable_1
oDoc = ThisComponent
oController = oDoc.getCurrentController()
' コピーする範囲を選択
oController.select( _
oDoc.getSheets().getByIndex(0).getCellRangeByPosition(0,0,1,2) )
oTransferable = oController.getTransferable()
Dim aArgs(0) As New com.sun.star.beans.PropertyValue
aArgs(0).Name = "Hidden"
aArgs(0).Value = False'True
oNewDoc = StarDesktop.loadComponentFromURL( _
"private:factory/scalc", "_blank", 0, aArgs )
oNewDoc_Controller = oNewDoc.getCurrentController()
' 貼り付け先範囲を指定
oNewDoc_Controller.select( _
oNewDoc.getSheets().getByIndex(0).getCellByPosition(1,1) )
oNewDoc_Controller.insertTransferable( oTransferable )
oNewDoc.storeAsURL("file:///C:/usr/out.ods",Array())
oNewDoc.close(True)
End Sub
Hidden = True だとセルの選択がうまくいかないかと思っていましが、そんなことありませんでした。
シートを丸ごとコピーするのであればシートのリンクが利用できるんですけどねぇ。
Hidden = True だとセルの選択がうまくいかない・・・loadCの第４引数ですよね？
XTransferable インターフェースだと巧く行くのですか？・・・美味しそうですね。
シートリンクは下記のようにして使ってます。例によってものぐさ太郎コマンドです。
Sub shon (A,B) rem シート呼出(ファイル名・シート名) s = ThisComponent.getSheets().getByIndex(6) rem シート番号固定 s.link(A,B,"","",com.sun.star.sheet.SheetLinkMode.NORMAL) s.setLinkMode(com.sun.star.sheet.SheetLinkMode.NONE) rem or NORMAL End Sub
Hidden のときにセルカーソルをあまり動かしたことがなかったもので。Copy_Transferable_1 は一応動作確認しました。そういえば、Hidden = True で開いた時にはコマンドによる処理が動作しないんじゃなかったかな、と。
因みに、前述のガイドではloadCの第４引数について次の様な記述があります
AsTemplate (ブール値) – これがTrue の場合、指定URLからドキュメントを読み込み 新規の無題ドキュメントとして表示します。False の場合は、テンプレートファイルを編集モードで読み込みます。 CharacterSet (文字列) – ドキュメントで使用する文字列コードを指定します。 FilterName (文字列) – loadComponentFromURL メソッドで使用する特殊なフィルタを指定します。 指定可能なフィルタ名は ファイル\share\config\registry\instance\org\openoffice\office\TypeDetection.xml に定義されています。 FilterOptions (文字列) – フィルタの追加オプションを指定します。 JumpMark (文字列) – ドキュメントのオープン後に、JumpMark の指定位置にジャンプさせます。 Password (文字列) – パスワード保護したファイル用のパスワードを与えます。 ReadOnly (ブール値) – 読み取り専用ドキュメントとして開くかを指定します。
JumpMarkのところが美味しそうな感じがしますが、なにせ製品版のガイドだと言う事で・・
話は1/25ぐらいに思ってます。
忘れていましたが、取敢えず完了にしておきます。
loadComponentFromURL メソッドの四番目の引数は MediaDescriptor に指定されているものを利用します。
MediaDescriptor はページを作ることにします。OOoBasic/Generic/MediaDescriptor
JumpMark を指定するとはドキュメントのブックマークの位置を表示します。URL のアンカー部分に相当します。
aArg = CreateUnoStruct("com.sun.star.beans.PropertyValue")
aArg.Name = "JumpMark"
aArg.Value = "bookmark"
StarDesktop.loadComponentFromURL( "file:///home/user/Doc.odt", "_blank", 0, Array( aArg ) )
上記は次のものと同じ動作をします。
StarDesktop.loadComponentFromURL( "file:///home/user/Doc.odt#anchor", ...
"#" で指定する方法は昨日、Writer のページに書いた気がします。
sub test40
csvinp2("file:///E:/test.txt","32,0,60,1",doc)
JunpTo2(doc,"表1","A1:B3")
cellpul2(doc,0,"B3",tes)
msgbox tes
end sub
sub csvinp2(A,B,doc) rem csv読込
Dim tes(2) As New com.sun.star.beans.PropertyValue
tes(0).Name = "FilterName"
tes(0).Value = "Text - txt - csv (StarCalc)"
tes(1).Name = "FilterOptions"
tes(1).Value = B
tes(2).Name = "Hidden"
tes(2).Value = True
doc = StarDesktop.loadComponentFromURL(A, " ", 0,tes)
end Sub
sub JunpTo2(doc,A,B) rem シート・セル移動name
cont = doc.getCurrentController()
cont.select(doc.getSheets().getByName(A).getCellRangeByName(B))
end Sub
sub cellpul2(doc,A,B,C) rem セルの文字を取出すname
C = doc.Sheets(A).getCellRangeByName(B).string
end sub
a1 b1 c1 d1 a2 b2 c2 d2 a3 b3 c3 d3 a4 b4 c4 d4
start /w /min soffice macro:///ponkan.A10.test40("")
start soffice -headless macro:///ponkan.A10.test40("")
rem Option Explicit
dim dlg As Object
dim buzai As string
sub test30
dim iList(10) As String
csvinp2("file:///E:/test.txt","",doc)
dlg = CreateUnoDialog(DialogLibraries. ponkan .Dialog1)
blist = dlg.getControl("ListBox1")
for cou1 = 0 To 10
iList(cou1) = doc.Sheets(0).getCellByPosition(0,cou1).getString
next cou1
blist.model.StringItemList = iList()
dlg.Execute
doc.close(true)
end sub
sub ShowItem
buzai = dlg.getControl("ListBox1").SelectedItem
msgbox buzai
dlg.endExecute
end Sub
rem start soffice -headless macro:///ponkan.A07.test30("")
