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

Author Siluvia Last modified 2025-08-26

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をクリックします。
次のKutools for Wordダイアログボックスに、置換後の単語をカンマで区切って入力し、OKをクリックします。

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

驚くべき機能を使ってWordで複数の単語を簡単に同時に検索して置換する

Kutools for Wordの一括検索と置換機能は、1つの文書や複数の文書で複数のテキストを同時に検索して置換するプロセスを簡素化する強力なツールです。標準的なWordの機能とは異なり、この機能により、より効率的に一括処理が可能になり、大幅な時間と労力を節約できます。

Kutools for Word、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

以下は、一括検索と置換を実行する手順です：

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