初心者でもできる！Word VBAで文字列を検索する方法

こんにちは！今日は、Word VBAを使って文書内の文字列を検索する方法をご紹介します。パソコン操作に不安がある方でも、安心して取り組める内容ですので、ぜひ最後までご覧ください。

Word VBAとは？
文字列検索の基本Findオブジェクト
検索のオプション設定
複数の文字列を検索する方法
検索結果をExcelに出力する方法
よくある質問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAとは？

Wordのイメージ

Word VBA（Visual Basic for Applications）は、Microsoft Wordに組み込まれているプログラミング言語で、文書の自動化やカスタマイズを行うことができます。例えば、毎回手動で行っている作業をマクロとして記録し、ボタン一つで実行できるようにすることが可能です。

文字列検索の基本Findオブジェクト

Word VBAで文字列を検索する際に使用するのが、Findオブジェクトです。このオブジェクトを使うことで、文書内の特定の文字列を簡単に検索できます。

以下は、Findオブジェクトを使用して「Word」という文字列を検索する基本的なコードです。

vba

Sub SearchWord()

    With Selection.Find

        .Text = "Word"

        .Execute

    End With

End Sub

このコードを実行すると、カーソルの位置から「Word」という文字列が検索され、見つかった場所にカーソルが移動します。

検索のオプション設定

Findオブジェクトには、検索の挙動を細かく設定できるプロパティがいくつかあります。例えば

.Forward検索の方向を設定します。`True`にすると前方向、`False`にすると後ろ方向に検索します。
.Wrap検索の終了後の動作を設定します。`wdFindStop`にすると検索が停止し、`wdFindContinue`にすると文書の先頭に戻って検索を続けます。
.MatchCase大文字と小文字を区別するかどうかを設定します。`True`にすると区別し、`False`にすると区別しません。

以下は、これらのオプションを設定したコード例です。

vba

Sub SearchWordWithOptions()

    With Selection.Find

        .Text = "Word"

        .Forward = True

        .Wrap = wdFindStop

        .MatchCase = False

        .Execute

    End With

End Sub

このコードを実行すると、文書内で「Word」という文字列を前方向に検索し、大文字と小文字を区別せずに検索します。

複数の文字列を検索する方法

複数の文字列を順番に検索したい場合、以下のようにコードを記述します。

vba

Sub SearchMultipleWords()

    Dim words As Variant

    words = Array("Word", "VBA", "検索")

Dim i As Integer For i = LBound(words) To UBound(words) With Selection.Find .Text = words(i) .Execute End With Next i End Sub

このコードを実行すると、「Word」、「VBA」、「検索」の順に文書内を検索します。

検索結果をExcelに出力する方法

検索した結果をExcelに一覧として出力することで、後で確認しやすくなります。以下は、検索結果をExcelに出力する基本的なコードです。

vba

Sub ExportSearchResultsToExcel()

    Dim wordApp As Object

    Set wordApp = CreateObject("Word.Application")

    wordApp.Visible = False
    Dim wordDoc As Object

    Set wordDoc = wordApp.Documents.Open("C:\path\to\your\document.docx")
    Dim rng As Object

    Set rng = wordDoc.Content

    rng.Find.Text = "Word"

    rng.Find.Execute
    If rng.Find.Found Then

        Dim excelApp As Object

        Set excelApp = CreateObject("Excel.Application")

        excelApp.Visible = True
        Dim wb As Object

        Set wb = excelApp.Workbooks.Add

        Dim ws As Object

        Set ws = wb.Sheets(1)
        ws.Cells(1, 1).Value = "検索結果"

        ws.Cells(2, 1).Value = rng.Text

    End If