如何在 Word 中跨多個文件進行搜尋和替換？

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

如果您有數十個包含相同內容（例如頁眉、頁腳或特定文字）的 Word 文件，並且需要在所有文件中替換這些內容，手動操作可能會非常繁瑣。本教程介紹了兩種方法，可快速一次性替換多個 Word 文件中的相同或不同內容。

使用 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 執行程式碼。
在瀏覽視窗中，選擇要處理的文件，然後點擊「確定」。
在「查找內容」輸入框中，輸入要查找的單詞或短語，然後點擊「確定」。
在「替換為」輸入框中，輸入替換文字並點擊「確定」。
在最後的 Microsoft Word 對話框中點擊「確定」。

所選 Word 文件中指定文字的所有實例將一次性被替換。

使用 Kutools for Word 輕鬆跨多個文件查找和替換不同的文字

Kutools for Word 的「批量查找與替換」功能讓您能夠一次跨多個 Word 文件查找和替換多個文字項目。

Kutools for Word，內建人工智慧 ?，提供超過 100 種實用功能，簡化您的工作流程。

立即下載

點擊「Kutools」>「批量替換」。
在批量查找與替換對話框中，配置設置：
1. 點擊「添加行」按鈕。
2. 在新行中：
  1. 在「查找」下輸入要查找的文字。
  2. 在「替換」下輸入替換文字。
  3. 根據需要，在相應欄位中指定查找類型、查找和替換的位置、突出顯示顏色及其他選項。
3. 點擊在「文件類型」部分中的按鈕以將 Word 文件添加到批次中。
4. 點擊「替換」或「查找」。
  提示：重複步驟 1) 和 2) 以添加更多查找和替換規則。
完成後關閉批量查找與替換對話框。