Word で複数のファイルを対象に検索と置換を行うには、どうすればよいですか？

著者アマンダ・リー変更日2025-04-14

ヘッダーやフッター、特定のテキストなど、同じ内容を含むWord ファイルが数十件あり、すべての文書でこの内容を一括置換したい場合、手作業では非常に面倒です。本チュートリアルでは、複数のWord 文書で同じ内容または異なる内容を一度に素早く置換する2 つの方法をご紹介します。

VBA コードを使用して、複数のWord 文書で検索と置換を同時に実行
 Kutools for Word を使用して、複数の文書で異なるテキストを簡単に同時に検索と置換

VBA コードを使用して、複数のWord 文書で検索と置換を同時に実行

この方法では、VBA コードを使って複数の文書で同時に内容を検索・置換する手順をご紹介します。

Alt + F11を押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

「挿入」>「標準モジュール」をクリックし、次のコードを貼り付けます：

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr
            .Replacement.Text = xReplaceStr
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

コードを実行するには、F5キーを押してください。
「参照」ウィンドウで処理したい文書を選択し、「OK」をクリックしてください。
「検索する文字列」入力ボックスに探したい単語またはフレーズを入力し、「OK」をクリックしてください。
「置換後の文字列」入力ボックスに置換後のテキストを入力して、「OK」をクリックしてください。
Microsoft Word の最後のダイアログボックスで「OK」をクリックしてください。

選択したWord ファイル内の指定テキストは、すべて一度に置き換えられます。

Kutools for Word を使用して、複数の文書で異なるテキストを簡単に同時に検索と置換

Kutools for Word「一括検索と置換」機能を使えば、複数のWord 文書内の複数のテキストを一度に検索・置換できます。

「Kutools」＞「一括置換」をクリックしてください。
一括検索と置換ダイアログで設定を行います：
1. 「行を追加」ボタンをクリックしてください。
2. 新しい行で：
  1. 「検索」の下に、検索したいテキストを入力してください。
  2. 「置換」の下に、置き換えるテキストを入力してください。
  3. 必要に応じて、各列ごとに検索タイプ、対象場所、検索と置換の設定、強調表示の色、その他のオプションを指定してください。
3. 「ファイルタイプ」セクションのボタンをクリックして、Word ファイルを一括で追加しましょう。
4. 「置換」または「検索」をクリックしてください。
  ヒント：手順1)と2)を繰り返すことで、さらに検索・置換ルールを追加できます。
完了したら、「一括検索と置換」ダイアログを閉じます。