OOobbs2/9

OOobbs2/9

• サマリ: Math での OOo Basic マクロの使用
• 環境: Math
• 状態: 未解決
• 投稿者: はにゃ??
• 投稿日: 2006-11-12 (日) 14:21:24

質問

http://oooug.jp/faq/index.php?cmd=read&page=faq%2F3%2F65&word=Basic で「Math数式エディターでマクロは使えませんか？」というのを見たので、試してみる。

Math のドキュメントを新規作成して、Standard ライブラリの Module1 に

Sub Main
Dim oDoc As Object
  oDoc = ThisComponent

  oDoc.Formula = "sum x"
  msgbox oDoc.Formula
End Sub

ちゃんと動きますね。

数式以外に、数式の見た目を変更するプロパティしかない。もとからシンプルな機能しかないし、Formula プロパティがすべてだから仕方ないらしい。

まとめのページ２ページくらいで終わりそう。

Writer ドキュメントに挿入するときの例

Sub Main
Dim oDoc As Object, oTextCursor As Object, oText As Object
Dim oFormula As Object
  oDoc = ThisComponent
  oText = oDoc.getText()
  oTextCursor = oText.createTextCursor()
  oFormula = oDoc.createInstance("com.sun.star.text.TextEmbeddedObject")
  oFormula.CLSID = "078b7aba-54fc-457f-8551-6147e776a997"
  oFormula.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
  
  oText.insertTextContent(oTextCursor, oFormula, true)
  oFormula.EmbeddedObject.Formula = "sum x"
End Sub

回答

感想，コメント，メモ