Word 文書内で複数の単語を同時に検索して置換するには、どうすればよいですか？

著者Siluvia変更日2025-03-13

Word 文書内で単語を検索・置換するのは一般的な作業ですが、特に長い文書全体で一貫した変更を行う際に非常に役立ちます。ただし、複数の単語を同時に検索・置換する必要がある場合、1 つずつ行うのは時間がかかってしまいます。幸いにも、この作業を効率的に行う方法があります。

本チュートリアルでは、次の2 つの方法でWord 文書内の複数の単語を同時に検索と置換する方法をご紹介します：

VBA でWord 内の複数の単語を同時に検索と置換
 便利な機能でWord 内の複数の単語を簡単に同時に検索と置換

VBA でWord 内の複数の単語を同時に検索と置換

VBA コードを使えば、Word 文書内の複数の単語を一度に検索・置換できます。以下の手順に従ってください：

複数の単語を検索して置換したいWord 文書を開き、Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

Microsoft Visual Basic for Applicationsウィンドウで、「挿入>標準モジュール」をクリックします。次に、以下の VBA コードを標準モジュールウィンドウにコピーします：

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here, separated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, separated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

F5キーを押して、コードを実行しましょう。
最初のKutools for Wordダイアログボックスで、検索・置換したい複数の単語をカンマ区切りで入力し、「OK」をクリックしてください。
2 番目のKutools for Wordダイアログボックスで、置換後の単語を同様にカンマ区切りで入力し、「OK」をクリックしてください。

注：この例では、「KTE」は「New」に、「KTO」は「Test」に、「KTW」は「Finish」にそれぞれ置き換えられます。必要に応じて、これらの内容を変更してください。

便利な機能でWord 内の複数の単語を簡単に同時に検索と置換

一括検索と置換機能は、Kutools for Wordが誇る強力なツールです。1 つの文書内はもちろん、複数の文書にわたって複数のテキストを同時に検索・置換する作業を驚くほど簡単に。標準のWord 機能とは一味違い、この機能を使えば一括処理による置換が格段に効率化され、大幅な時間と手間を節約できます！

一括検索と置換を実行するには、次の手順に従ってください：

Microsoft Word を起動し、「Kutools > 一括置換」をクリックします。
一括検索と置換ウィンドウで、次のように設定を構成します：
1. 「行を追加」ボタンをクリックして、検索と置換のフィールドを挿入してください。たとえば、3 つの異なるテキストを置換する必要がある場合は、行を3 つ作成します。
2. 各行で、置換対象のテキストを検索列に入力し、新しいテキストを置換列に入力します。
  ヒント：各検索・置換ルールについて、下記スクリーンショットのオレンジ色のハイライトで示されているように、検索タイプ、検索範囲、ハイライト色、および書式を指定することもできます。
3. 「追加」または「ファイルを追加」「フォルダーを追加」を選択して、検索と置換操作を実行したいドキュメントを1 つ以上追加してください。
4. 「置換」ボタンをクリックして、操作を実行しましょう。