Word VBAでのコンテンツ検索【初心者向け解決ガイド】

Wordの文書内で特定のテキストを検索する作業は、手動でも可能ですが、VBA（Visual Basic for Applications）を使用すると、より効率的に自動化できます。特に、複数の文書や大量のデータを扱う際に、その効果を実感できるでしょう。今回は、Word VBAの「Find」オブジェクトと「Execute」メソッドを中心に、初心者の方にも分かりやすく解説します。

Word VBAのFindオブジェクトとは？
1. Findオブジェクトの主なプロパティ
Executeメソッドの使い方
1. 検索結果の反復処理
書式の検索と置換
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAのFindオブジェクトとは？

Wordのイメージ

Word VBAにおける「Find」オブジェクトは、文書内で特定のテキストや書式を検索するための機能を提供します。これは、Wordの「検索と置換」ダイアログボックスで設定できるオプションと対応しており、プログラムから同様の操作を実行することができます。

例えば、以下のコードは、カーソル位置から文書内で「こんにちは」という文字列を検索し、見つかった場合にその部分を太字にするものです。

vba

With Selection.Find

    .Text = "こんにちは"

    .Forward = True

    .Wrap = wdFindStop

    .Execute

    If .Found Then

        Selection.Font.Bold = True

    End If

End With

このコードでは、`Selection.Find`を使用して検索条件を設定し、`Execute`メソッドで実際の検索を実行しています。

Findオブジェクトの主なプロパティ

* `.Text`: 検索するテキストを指定します。
* `.Forward`: Trueに設定すると、カーソルの位置から前方に検索を行います。
* `.Wrap`: 検索が文書の終わりに達した際の動作を指定します。`wdFindStop`は検索を停止します。
* `.MatchCase`: 大文字と小文字を区別するかどうかを指定します。
* `.MatchWholeWord`: 完全一致のみを検索するかどうかを指定します。

Executeメソッドの使い方

`Execute`メソッドは、設定した検索条件に基づいて実際の検索を実行します。検索が成功すると、`True`を返し、失敗すると`False`を返します。これを利用して、検索結果に応じた処理を行うことができます。

以下のコードは、文書全体から「Word」という単語を検索し、見つかった場合にその部分を赤色に変更するものです。

vba

With ActiveDocument.Content.Find

    .Text = "Word"

    .Forward = True

    .Wrap = wdFindStop

    .Execute

    If .Found Then

        ActiveDocument.Range.Font.Color = wdColorRed

    End If

End With

このように、`Execute`メソッドを使用することで、検索とその後の処理を簡潔に記述できます。

検索結果の反復処理

複数の検索結果を処理する場合、`Execute`メソッドをループ内で使用することが一般的です。以下のコードは、文書内のすべての「テスト」という単語を検索し、見つかった部分を太字にするものです。

vba

With ActiveDocument.Content.Find

    .Text = "テスト"

    .Forward = True

    .Wrap = wdFindStop

    Do While .Execute

        If .Found Then

            ActiveDocument.Range.Font.Bold = True

        End If

    Loop

End With

このコードでは、`Do While`ループを使用して、検索結果が見つからなくなるまで処理を繰り返します。

書式の検索と置換

VBAでは、テキストだけでなく、書式（フォント、段落設定など）の検索や置換も可能です。例えば、太字のテキストを検索して、斜体に変更する場合、以下のように記述します。

vba

With ActiveDocument.Content.Find

    .ClearFormatting

    .Font.Bold = True

    .Replacement.ClearFormatting

    .Replacement.Font.Italic = True

    .Execute Replace:=wdReplaceAll

End With

このコードでは、`.Font.Bold = True`で太字のテキストを検索し、`.Replacement.Font.Italic = True`でその部分を斜体に置換しています。