如何在多個 Word 檔案中執行搜尋與取代？

作者Amanda Li修改日期2025-04-14

如果您手上有數十份 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」>「批次取代」。
在批量查找與替換對話方塊中設定以下選項：
1. 點擊「添加行」按鈕。
2. 在新列中：
  1. 在「尋找」欄位下方輸入您要搜尋的文字。
  2. 在「取代」欄位下方輸入您要替換的文字。
  3. （可選）在各自欄位中指定搜尋類型、位置、「尋找與取代」設定、醒目提示色彩及其他所需選項。
3. 點擊「文件類型」區段中的按鈕，即可將 Word 檔案加入批次處理清單！
4. 點擊「取代」或「尋找」即可開始！
  提示：重複步驟 1)和 2），輕鬆新增更多尋找與取代規則。
完成後，關閉「批量查找與替換」對話方塊。