Word VBAで文字列を検索する方法｜初心者でもわかる実践ガイド

Wordで文書を作成していると、特定の文字列を検索して強調表示したり、置換したりする場面が多いですよね。そんなときに役立つのが「Word VBA（Visual Basic for Applications）」です。今回は、初心者の方でもわかりやすいように、Word VBAを使って文字列を検索する方法をステップバイステップで解説します。

Word VBAとは？
Findオブジェクトを使った文字列検索の基本
1. 基本的なコード例
2. 検索条件の設定
検索結果を強調表示する方法
複数の文字列を一括で検索・置換する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAとは？

Wordのイメージ

Word VBAは、Microsoft Wordに組み込まれているプログラミング言語で、文書の自動化やカスタマイズを行うためのツールです。例えば、手作業で行っていた文字列の検索や置換を、マクロを使って自動化することができます。

Findオブジェクトを使った文字列検索の基本

Word VBAで文字列を検索するには、「Findオブジェクト」を使用します。これは、Wordの検索機能をプログラムから操作するためのオブジェクトです。

基本的なコード例

以下のコードは、カーソル位置から文書の最後まで「Word」という文字列を検索し、見つかった箇所に下線を引くものです。

vba

Sub SearchAndUnderline()

    With Selection.Find

        .Text = "Word"

        .Replacement.Text = "^&" ' 見つかった文字列をそのまま置換

        .Replacement.Font.Underline = True

        .Execute Replace:=wdReplaceAll

    End With

End Sub

このコードでは、`Selection.Find`を使って検索条件を設定し、`Execute`メソッドで検索を実行しています。`Replace:=wdReplaceAll`は、見つかったすべての箇所を置換するオプションです。

検索条件の設定

`Find`オブジェクトには、検索条件を細かく設定するためのプロパティが多数用意されています。代表的なものをいくつか紹介します。

ここがポイント！

.Text: 検索する文字列を指定します。
.MatchCase: 大文字と小文字を区別するかどうかを設定します。
.MatchWholeWord: 完全一致のみを検索対象にするかどうかを設定します。
.MatchWildcards: ワイルドカード（正規表現）を使用するかどうかを設定します。
.Font.Underline: 下線などの書式を検索条件に含めるかどうかを設定します。

これらのプロパティを組み合わせることで、より複雑な検索条件を設定することができます。

検索結果を強調表示する方法

検索した文字列を強調表示することで、文書内での位置をわかりやすくすることができます。以下のコードは、検索した文字列に黄色の蛍光ペンでマークを付けるものです。

vba

Sub HighlightSearchResults()

    With Selection.Find

        .Text = "重要"

        .Execute

        If .Found Then

            Selection.Range.HighlightColorIndex = wdYellow

        End If

    End With

End Sub

このコードでは、`Selection.Find`で「重要」という文字列を検索し、見つかった場合にその範囲に黄色の蛍光ペンを適用しています。

複数の文字列を一括で検索・置換する方法

複数の文字列を一度に検索して置換する場合、以下のようなコードを使用します。

vba

Sub ReplaceMultipleStrings()

    Dim replacements As Variant

    replacements = Array("旧社名", "新社名", "旧住所", "新住所")

Dim i As Integer For i = LBound(replacements) To UBound(replacements) Step 2 With Selection.Find .Text = replacements(i) .Replacement.Text = replacements(i + 1) .Execute Replace:=wdReplaceAll End With Next i End Sub

このコードでは、`replacements`配列に検索する文字列と置換後の文字列を交互に格納し、`For`ループで順番に処理しています。