Skip to main content

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

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

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

使用 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. 在瀏覽視窗中,選擇要處理的文件,然後點擊「確定」。
    Browse window
  5. 在「查找內容」輸入框中,輸入要查找的單詞或短語,然後點擊「確定」。
    Find what box
  6. 在「替換為」輸入框中,輸入替換文字並點擊「確定」。
    Replace with box
  7. 在最後的 Microsoft Word 對話框中點擊「確定」。
    Confirmation dialog

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


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

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

Kutools for Word內建人工智慧 🤖,提供超過 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 -讓你的 Word進階,擁有超過 100 項強大功能!

🤖 Kutools AI FeaturesAI Assistant / 即時助手 / 超級潤色(保留格式) / 超級翻譯(保留格式) / AI遮擋 / AI校正...

📘 文檔掌控文檔拆分頁面 / 文檔合併 / 選取內容多格式導出(PDF/TXT/DOC/HTML...)/ 批量轉換為 PDF...

內容編輯跨多個文件批量查找與替換 / 圖片大小統一調整 / 行列翻轉表格 / 表格轉文本...

🧹 潔淨無憂:一鍵清除多餘空格 / 分節符 /文字方塊 / 超鏈接 / 更多清除工具請至 清除所有 群組...

創新插入:插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 批量插入圖片 / 更多插入功能請前往 插入 群組...

🔍 精準選取:鎖定特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多 選取 功能提升導航效率...

優質強化輕鬆跳轉至文件夾 / 自動插入重複文字 / 切換文檔窗口 /11 轉換工具...

🌍 支援40+ 種語言:可用您的偏好語言體驗 Kutools —— 支援英語、西班牙語、德語、法語、中文等超過40 種語言!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想要體驗這些功能嗎?立即下載 Kutools for Word!🚀
 

最佳辦公效率工具

Kutools for Word - 100+ Word 工具