Wordで複数のファイルにまたがって検索と置換を行うにはどうすればよいですか？

Author: Amanda Li Last Modified: 2025-05-23

数十の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 for Wordについて、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

「Kutools」>「一括置換」をクリックします。
「一括検索と置換」ダイアログで設定を行います：
1. 「行を追加」ボタンをクリックします。
2. 新しい行で：
  1. 「検索」の下に検索したいテキストを入力します。
  2. 「置換」の下に置換テキストを入力します。
  3. 必要に応じて、それぞれの列で検索タイプ、検索と置換を行う場所、ハイライト色、その他のオプションを指定します。
3. クリックします「ファイルタイプ」セクションのボタンを押して、バッチにWordファイルを追加します。
4. 「置換」または「検索」をクリックします。
  ヒント: 手順1) と2) を繰り返して、さらに検索と置換のルールを追加します。
完了したら、「一括検索と置換」ダイアログを閉じます。