LibreOffice Witer マクロを作成する

Writerで使用するマクロは、主に文書の入力作業の軽減と推敲の支援を目的に作成します。

マクロで文書を変更するには、変更する位置を何らかの方法で指定する必要があります。

具体的には、以下の位置です。

• カーソル位置
• 選択範囲
• 検索で一致した範囲

「カーソル位置」、「選択範囲」を変更するマクロは、主に文書の入力時に使用します。何度も同じことを繰り返す複数の操作で行う入力作業をマクロで行うことで、作業時間と作業負荷を軽減します。

「検索で一致した範囲」を変更するマクロは、主に完成した文書に使用します。見出しのスタイルの変更や用語の統一、スペルミスの修正などを行う際に使用します。

カーソル位置に特定の文字を挿入することができれば、LibreOffice Witerの標準機能の定型文のような操作を実現できます。

定型文機能

定型文機能は、ツール→定型文を選択すると利用できます。

特定の文字や文章をカーソル位置に挿入することができます。

定型文機能のように、カーソル位置に、挿入するには、カーソル位置を指定する必要があります。

では、マクロを確認します。

新規文書を作成した後、マクロの記録を選択し、「文字列を追加する」とキーボードから入力し、マクロの記録を終了します。

マクロの記録では、次のようなコードが得られます。

REM  *****  BASIC  *****


sub InsertString
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Text"
args1(0).Value = "文字列を追加する"

dispatcher.executeDispatch(document, ".uno:InsertText", "", 0, args1())


end sub

インターネットで調べてみるとカーソル位置に文字列を追加するコードは、以下のコードでも可能です。このマクロでは、挿入された文字は、選択された状態でマクロが終了します。

Sub InsertString_2
'writer 現在のカーソル位置に文字列を挿入する。

ThisComponent.CurrentController.getViewCursor.setString("文字列を追加する")

End Sub 

選択した範囲にマクロを実行したいことはよくあると思います。

選択範囲を取得するコードをマクロの記録で取得します。

選択した範囲の文字色を「Light Blue 1」に変更します。

sub SelectionColorChange
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Color"
args1(0).Value = 1799612

dispatcher.executeDispatch(document, ".uno:Color", "", 0, args1())
end sub

ワープロソフトやテキストエディタで、マクロを使用してテキストを加工する際の最も一般的な方法の１つは、正規表現を使った検索で場所を指定し、その位置を変更することです。もちろん、検索に正規表現を使用する必要はありません。更に、正規表現を使うことで、より柔軟な検索を行うことができます。