メインコンテンツへスキップ

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

Author: Amanda Li Last Modified: 2025-08-06

数十のWordファイルに同じ内容(ヘッダーやフッター、特定のテキストなど)が含まれていて、その内容をすべての文書で置き換える必要がある場合、手動で行うのは面倒です。このチュートリアルでは、複数のWord文書で同じまたは異なる内容を一度に迅速に置き換えるための2つの方法を紹介します。

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


VBAコードを使用して、複数のWord文書で同時にテキストを検索および置換する

この方法では、VBAコードを使用して複数の文書で同時にコンテンツを検索および置換する方法を説明します。

  1. Alt + F11を押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
  2. 「挿入」>「モジュール」をクリックし、次のコードを貼り付けます:
    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
  3. F5キーを押してコードを実行します。
  4. 参照ウィンドウで処理したい文書を選択し、「OK」をクリックします。
    Browse window
  5. 「検索する文字列」入力ボックスに、検索したい単語やフレーズを入力し、「OK」をクリックします。
    Find what box
  6. 「置換」入力ボックスに置換テキストを入力し、「OK」をクリックします。
    Replace with box
  7. 最後のMicrosoft Wordダイアログボックスで「OK」をクリックします。
    Confirmation dialog

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


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

Kutools for Wordの「一括検索と置換」機能を使用すると、複数のWord文書で複数のテキスト項目を一度に検索および置換できます。

Kutools for Wordについて、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。
  1. 「Kutools」>「一括置換」をクリックします。
    Batch Replacement button
  2. 「一括検索と置換」ダイアログで設定を行います:
    1. 「行を追加」ボタンをクリックします。
    2. 新しい行で:
      1. 「検索」の下に検索したいテキストを入力します。
      2. 「置換」の下に置換テキストを入力します。
      3. 必要に応じて、それぞれの列で検索タイプ、検索と置換を行う場所、ハイライト色、その他のオプションを指定します。
    3. クリックします Add button 「ファイルタイプ」セクションのボタンを押して、バッチにWordファイルを追加します。
    4. 「置換」または「検索」をクリックします。
      ヒント: 手順1) と2) を繰り返して、さらに検索と置換のルールを追加します。
      Batch Find and Replace configuration
  3. 完了したら、「一括検索と置換」ダイアログを閉じます。

注意:

  • 「検索」をクリックした場合、一致する結果は「プレビューリザルト」タブに表示されます。その後、置換を適用するには「検索と置換」タブに戻ります。
  • 「置換」をクリックすると、すべての一致が即座に置換され、「プレビューリザルト」に表示されます。
  • ハイライト色が指定されている場合、Word文書内の置換箇所はそれに応じて色分けされます。

「一括検索と置換」機能についての詳細は、チュートリアルページをご覧ください

Kutools for Word は、作業を効率化し、文書処理スキルを向上させる究極の Word アドインです。今すぐ入手してください!

最高のオフィス生産性ツール

Kutools for Word - 100以上の優れた機能でWordの操作をさらに向上!

🤖 Kutools AI FeaturesAIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ(形式を保持) / スーパー トランスレート(形式を保持) / AI編集 / AI校正...

📘 文書マスターページの分割 / 文書の結合 / 選択範囲を各種形式(PDF/TXT/DOC/HTMLなど)でエクスポート / 一括PDF変換...

内容編集複数ファイルにわたる一括検索と置換 /すべての画像のリサイズ / 表の行と列の転置 / 表をテキストに変換...

🧹 簡単クリーン:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクを一掃します。その他の削除ツールは削除グループでご覧いただけます...

クリエイティブ挿入:千位区切りの挿入 / チェックボックスの挿入 / ラジオボタンの挿入 / QRコード / バーコード / 複数画像の挿入 / 他にも挿入グループにて発見...

🔍 高精度選択特定のページ / / 図形 / 見出し段落をピンポイントで選択。さらに多くの 選択 機能でナビゲーションを強化...

スター強化任意の場所へ移動 / 繰り返しテキストの自動挿入 / 複数文書ウィンドウ間の切替 /11 種類の変換ツール...

🌍 40以上の言語に対応:Kutoolsはお好みの言語でお使いいただけます―英語、スペイン語、ドイツ語、フランス語、中国語など40以上の言語をサポート!

Kutools and Kutools Plus tabs on the Word Ribbon
👉これらの機能を体験してみませんか?今すぐKutools for Wordをダウンロード!🚀
 

最高のオフィス生産性ツール

Kutools for Word - 100+ のWord用ツール