モジュール名を指定してBasicIDE(Basicエディター)を起動する マクロの実験 [LibreOffice Calc Basic]
モジュール名を指定してBasicIDE(Basicエディター)を起動する マクロの実験
参考にしたサイト
ttp://hermione.s41.xrea.com/pukiwiki/index.php?OOoBasic%2FGeneric%2FBasicIDE
マイマクロ.>standerd>tools1(モジュール名)
'ttp://hermione.s41.xrea.com/pukiwiki/index.php?OOoBasic%2FGeneric%2FBasicIDE
'Sourcecodeはコピペで、一部アレンジ
' Standard>tooll1(モジュール名)
sDocument = "application"
sLibName = "Standard"
sName = "Tools1"
nLine = 0
nColumn1 = 0
nColumn2 = 10
sType = "Module"
sURL = ".uno:BasicIDEAppear"
aURL = CreateUnoStruct("com.sun.star.util.URL")
aURL.Complete = sURL
CreateUnoService("com.sun.star.util.URLTransformer").parseStrict(aURL)
Dim aArgs(6) As New com.sun.star.beans.PropertyValue
aArgs(0).Name = "LibName"
aArgs(0).Value = "Standard" 'sLibName
aArgs(1).Name = "Name"
aArgs(1).Value ="Tools1" ' sName(モジュール名)
aArgs(2).Name = "Line"
aArgs(2).Value = 0 '何行目から表示するか?
aArgs(3).Name = "Column1"
aArgs(3).Value = 0
aArgs(4).Name = "Column2"
aArgs(4).Value = 0
aArgs(5).Name = "Type"
aArgs(5).Value = "Module"
aArgs(6).Name = "Document"
aArgs(6).Value = "Document"
d = StarDesktop.queryDispatch(aURL, "_self", 0)
If NOT IsNull(d) then d.dispatch(aURL, aArgs)
End Sub
次回の課題はプロシージャ名を指定してBasicIDEを開く
モジュールを一行づつ読み込みマクロ名(プロシージャ名)を探し何行目かを調べればできそう。
Tools1モジュールが開いた
コメント 0