SSブログ

モジュール名を指定してBasicIDE(Basicエディター)を起動する マクロの実験 [LibreOffice Calc Basic]

 モジュール名を指定してBasicIDE(Basicエディター)を起動する マクロの実験

参考にしたサイト

 ttp://hermione.s41.xrea.com/pukiwiki/index.php?OOoBasic%2FGeneric%2FBasicIDE

マイマクロ.>standerd>tools1(モジュール名)

Sub OpenBasicIDE()
'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を開く
モジュールを一行づつ読み込みマクロ名(プロシージャ名)を探し何行目かを調べればできそう。

 

libreoffice_basicIDE.png

Tools1モジュールが開いた

 

 

 

 


タグ:BasicIDE
nice!(0)  コメント(0)  トラックバック(0) 
共通テーマ:パソコン・インターネット

nice! 0

コメント 0

コメントを書く

お名前:
URL:
コメント:
画像認証:
下の画像に表示されている文字を入力してください。

トラックバック 0

libreOffice style アイ..LibreOffice Basic ID.. ブログトップ


Linuxランキング

この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。