Word で複数のファイルを検索および置換するにはどうすればよいですか?

著者: アマンダ・リー最終更新日：2024年09月13日

ヘッダー、フッター、特定の単語や数字など、同じコンテンツを含む Word ファイルが数十個あり、すべてのドキュメントでこのコンテンツを置き換える必要がある場合、手動で行うのは時間がかかり、面倒です。幸いなことに、このタスクを処理するより効率的な方法があります。このチュートリアルでは、複数の Word ドキュメント内の同じコンテンツを一度に置き換える巧妙な方法を示し、時間と労力を節約します。

VBA コードを使用して複数の Word 文書間でテキストを同時に検索および置換する
 Kutools for Wordを使用すると、複数のドキュメントにまたがるさまざまなテキストを同時に簡単に見つけて置き換えることができます。

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

この方法では、VBA コードを使用して複数の Word 文書間でテキストを同時に検索および置換し、大量のファイルを処理する際の時間と労力を節約する方法について説明します。

イベント Altキー+ F11 を開く アプリケーション向け Microsoft Visual Basic 窓。

アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次のVBAコードをコピーして貼り付けます。 モジュール 窓。

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
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  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .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
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

イベント F5 コードを実行します。
ブラウズ ウィンドウで、テキストを検索して置換する文書を選択し、 OK.
最初に Kutools for Word ダイアログボックスで、検索したいテキストを入力します。 見つける フィールドとクリック OK.
第二に Kutools for Word ダイアログボックスで、置き換えたいテキストを入力してクリックします。 OK.
クリック OK 決勝で マイクロソフトワード プロセスを終了するためのダイアログボックス。

この場合、選択したドキュメント内のすべての「Word」のインスタンスが同時に「Excel」に置き換えられます。

Kutools for Wordを使用すると、複数のドキュメントにまたがるさまざまなテキストを同時に簡単に見つけて置き換えることができます。

ここで強くお勧めします バッチ検索と置換 の特徴 Kutools for Word。この機能を使用すると、複数のWord文書で異なるテキストを同時に簡単に見つけて置き換えることができます。この機能を適用して、ドキュメント全体のテキストを検索して置換する方法を見てみましょう。

Kutools for Word, AI搭載 🤖、タスクを簡素化する 100 以上の便利な機能を提供します。

今すぐダウンロード

1.をクリックしてください クツールズプラス > バッチ検索と置換 この機能を有効にします。

リボンのバッチ検索と置換ボタン

2。の中に バッチ検索と置換 ダイアログボックスで、次のように構成してください。

2.1）をクリックします 行を追加 ボタンの下に 検索および置換 タブ;
2.2）作成された行フィールド：

A.見つけたテキストをのテキストボックスに入力してください もう完成させ、ワークスペースに掲示しましたか? の項目に表示されます。
B.置換するテキストをのテキストボックスに入力します 交換する カラム;
C.必要に応じて、テキストを検索する場所とテキストを強調表示する色を指定します。この場合、私は選択します フルワードマッチング, メインドキュメント とからの特定の色 検索タイプ、 で見つける と特徴列;

2.3）ステップ2.1と2.2を繰り返して、見つけて置き換えるテキストをさらに追加します。
2.4）をクリックしますボタンの ファイルの種類 テキストを見つけて置き換えるWord文書を追加するセクション。
2.5）をクリックします 交換する or もう完成させ、ワークスペースに掲示しましたか? ボタン。スクリーンショットを参照してください：

一括検索と置換ダイアログボックス

ノート:

1.をクリックした場合 もう完成させ、ワークスペースに掲示しましたか? ボタンをクリックすると、すべての検索結果が下に表示されます。 プレビュー結果 タブ。結果をプレビューした後、すべてのテキストを置き換える場合は、をクリックしてください。 検索および置換 タブ。それ以外の場合は、ダイアログを閉じます。

バッチ検索と置換ダイアログボックス - 検索結果