Word VBAで蛍光ペンを使って文字をハイライトする方法

Word文書を作成しているとき、「この部分を目立たせたい」「後で確認したい」と思うことがありますよね。そんなときに便利なのが、Wordの「蛍光ペン」機能です。今回は、VBA（Visual Basic for Applications）を使って、特定の文字列を蛍光ペンでハイライトする方法をご紹介します。

VBAを使って文字列を蛍光ペンでハイライトする方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

VBAを使って文字列を蛍光ペンでハイライトする方法

Wordのイメージ

まず、VBAを使って文書内の特定の文字列を蛍光ペンでハイライトする基本的な方法をご紹介します。

基本的なコードの例

以下のコードは、文書内の「重要」という文字を黄色の蛍光ペンでハイライトするものです。

vba

Sub ハイライトする()

    With ActiveDocument.Range.Find

        .Text = "重要"

        .Replacement.Highlight = True

        .Replacement.HighlightColorIndex = wdYellow

        .Execute Replace:=wdReplaceAll

    End With

End Sub

このコードを実行すると、文書内の「重要」という文字がすべて黄色でハイライトされます。

複数の文字列をハイライトする方法

もし、複数の文字列を一度にハイライトしたい場合は、以下のように配列を使って処理することができます。

vba

Sub 複数ハイライト()

    Dim words As Variant

    words = Array("重要", "注意", "確認")

Dim i As Integer For i = LBound(words) To UBound(words) With ActiveDocument.Range.Find .Text = words(i) .Replacement.Highlight = True .Replacement.HighlightColorIndex = wdYellow .Execute Replace:=wdReplaceAll End With Next i End Sub

このコードでは、「重要」「注意」「確認」の3つの文字列を黄色でハイライトします。

図形内のテキストもハイライトする方法

Word文書には、テキストボックスなどの図形が含まれていることがあります。これらの図形内のテキストもハイライトするには、以下のように図形を一つずつチェックして処理します。

vba

Sub 図形内ハイライト()

    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes

        If shp.Type = msoTextBox Then

            shp.TextFrame.TextRange.Find.Execute FindText:="重要", ReplaceWith:="", Replace:=wdReplaceAll

            shp.TextFrame.TextRange.HighlightColorIndex = wdYellow

        End If

    Next shp

End Sub

このコードは、文書内のすべてのテキストボックスをチェックし、その中の「重要」という文字を黄色でハイライトします。

よくある質問や疑問

Q1: VBAを使うにはどうすればいいですか？

VBAを使うには、まずWordの「開発」タブを表示する必要があります。表示方法は、Wordの設定から「リボンのユーザー設定」を選び、「開発」にチェックを入れることで表示できます。その後、「Visual Basic」をクリックして、VBAエディタを開きます。

Q2: ハイライトの色を変えることはできますか？

はい、できます。コード内の「wdYellow」を他の色に変更することで、ハイライトの色を変えることができます。例えば、「wdRed」で赤色、「wdGreen」で緑色に変更できます。

Q3: ハイライトを解除する方法はありますか？

はい、ハイライトを解除するには、以下のコードを使用します。

vba

Sub ハイライト解除()

    With ActiveDocument.Range.Find

        .Text = ""

        .Replacement.Highlight = False

        .Execute Replace:=wdReplaceAll

    End With

End Sub

このコードを実行すると、文書内のすべてのハイライトが解除されます。