LibreOffice 6.0 Basicのサンプルコード「Changing Appearance」

説明

特定の単語に使われるスタイルを変更するために、あなたは、次の例から始めることができます。このコードは、正確に1つの小文字によって、それに続くテキスト部分を表す正規表現［a-z］を検索します。これらの4つの文字のすべての出現は、太字に変更されます。プログラムの次の部分でも同じことが起こります。今回は、すべての[a-z]の外観をイタリックに変更しました。この例が、機能するためには、あなたは、開いたテキスト文書から、それを実行する必要があります。

サンプルマクロが含まれているドキュメントの所在

Changing Appearanceマクロを実行する

ドキュメントを開くと、英語の文章が記入されており、その下に「Start regular expressons」というボタンが配置されています。

「Start regular expressons」というボタンを押すとマクロが実行され、一部の文字が太く、あるいは、イタリックで表示されます。 マクロが実行されない場合は、セキュリティ設定を確認して下さい。

サンプルマクロが含まれているドキュメントを開く

このマクロでは、「元に戻す」が有効になっているので、マクロで行われた文字属性の変更を元に戻すことができます。

正規表現を使用し、特定の文字パターンを検索し、検索された文字パターンに一致する部分の文字属性を変更しています。

コード・サンプルには、説明が全く記載されていませんでした。

コードを理解しやすくするために、コメントを追加しています。コメントは、私が追加したものなので、間違っていた場合のご指摘は、このサイトの連絡先にお願いします。

Sub Main
' 文書全体で、正規表現パターンに一致する文字の色を変更する

' 使用する変数を宣言する
  Dim oDocument As Object
  Dim oSearch As Object, oResult As Object
  Dim oFound As Object, oFoundCursor As Object
  Dim n As Long

  '処理の対象とするドキュメントを指定する
  oDocument = ThisComponent
  
  '  oSearchをoDocument.createSearchDescriptorオブジェクトとして定義する
  oSearch = oDocument.createSearchDescriptor
  
  ' 正規表現パターンを指定する
  oSearch.SearchString = "the[a-z]"
  
  ' 正規表現による検索を有効にする
  oSearch.SearchRegularExpression = TRUE

 ' *** 一度にまとめて検索する例 ***
  
  ' findAllで、一度に検索する。検索結果を格納する変数を指定する　結果は、配列として格納されるようです。
  oResult = oDocument.findAll(oSearch)

  ' 検索結果の文字列をボールドに指定する
  For n = 0 To oResult.count - 1
     ' 要素のインディックスを取得する
     oFound = oResult.getByIndex(n)
     '　要素のカーソル位置を取得する
     oFoundCursor = oFound.Text.createTextCursorByRange(oFound)
     ' カーソル位置の文字をボールド体にする
     oFoundCursor.CharWeight = com.sun.star.awt.FontWeight.BOLD
  Next n


' *** １つ１つ検索する例 ***

  ' 正規表現パターンを指定する
  oSearch.SearchString = "all[a-z]"
  
  ' findFirstで、最初に見つかる検索結果を取得する
  oFound = oDocument.findFirst(oSearch)
  
  While NOT IsNull(oFound)	' 検索対象が見つからなくなるまで実行する
      '　要素のカーソル位置を取得する 
     oFoundCursor = oFound.Text.createTextCursorByRange(oFound)
      ' カーソル位置の文字をイタリック体にする
     oFoundCursor.CharPosture = com.sun.star.awt.FontSlant.ITALIC
     ' findNextで、次に見つかる検索結果を取得する
     oFound = oDocument.findNext(oFound, oSearch)
  Wend

End Sub

解説：検索で特定した文字列のスタイルを変更する

' 使用する変数を宣言する
  Dim oDocument As Object
  Dim oSearch As Object, oResult As Object
  Dim oFound As Object, oFoundCursor As Object
  Dim n As Long

  '処理の対象とするドキュメントを指定する
  oDocument = ThisComponent

  '  oSearchをoDocument.createSearchDescriptorオブジェクトとして定義する
  oSearch = oDocument.createSearchDescriptor

  ' 正規表現パターンを指定する
  oSearch.SearchString = "the[a-z]"

  ' 正規表現による検索を有効にする
  oSearch.SearchRegularExpression = TRUE

  ' findAllで、一度に検索する。検索結果を格納する変数を指定する　結果は、配列として格納されるようです。
  oResult = oDocument.findAll(oSearch)

  ' 検索結果の文字列をボールドに指定する
  For n = 0 To oResult.count - 1
     ' 要素のインディックスを取得する
     oFound = oResult.getByIndex(n)
     '　要素のカーソル位置を取得する
     oFoundCursor = oFound.Text.createTextCursorByRange(oFound)
     ' カーソル位置の文字をボールド体にする
     oFoundCursor.CharWeight = com.sun.star.awt.FontWeight.BOLD
  Next n

  ' findFirstで、最初に見つかる検索結果を取得する
  oFound = oDocument.findFirst(oSearch)

  While NOT IsNull(oFound)	' 検索対象が見つからなくなるまで実行する
' 繰り返す処理
 Wend

      '　要素のカーソル位置を取得する 
     oFoundCursor = oFound.Text.createTextCursorByRange(oFound)
      ' カーソル位置の文字をイタリック体にする
     oFoundCursor.CharPosture = com.sun.star.awt.FontSlant.ITALIC

     ' findNextで、次に見つかる検索結果を取得する
     oFound = oDocument.findNext(oFound, oSearch)