Skip to main content

如何在Word文檔中同時查找和替換多個單詞?

Author: Siluvia Last Modified: 2025-05-12

在Word文檔中查找和替換單詞是一項常見的任務,特別是在需要對冗長的文檔進行一致性修改時。然而,如果需要同時查找和替換多個單詞,逐一手動操作可能會非常耗時。幸運的是,有一些高效的方法可以完成此任務。

在本教程中,我們將向您展示如何使用兩種方法在Word文檔中同時查找和替換多個單詞:

使用VBA在Word中同時查找和替換多個單詞
使用一項強大的功能輕鬆在Word中同時查找和替換多個單詞


使用VBA在Word中同時查找和替換多個單詞

您可以使用VBA代碼一次性在Word文檔中查找和替換多個單詞。請按照以下步驟操作:

  1. 打開要查找和替換多個單詞的Word文檔,然後按 Alt + F11 打開 Microsoft Visual Basic for Applications 窗口。
  2. Microsoft Visual Basic for Applications 窗口中,點擊 插入 > 模塊。然後將以下VBA代碼複製到 模塊 窗口中:
    Sub FindAndReplaceMultiItems()
    'Update by ExtendOffice 2018/10/25
        Dim xFind As String
        Dim xReplace As String
        Dim xFindArr, xReplaceArr
        Dim I As Long
        Application.ScreenUpdating = False
        xFind = InputBox("Enter items to be found here, separated by comma: ", "Kutools for Word")
        xReplace = InputBox("Enter new items here, separated by comma: ", "Kutools for Word")
        xFindArr = Split(xFind, ",")
        xReplaceArr = Split(xReplace, ",")
        If UBound(xFindArr) <> UBound(xReplaceArr) Then
            MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        For I = 0 To UBound(xFindArr)
            Selection.HomeKey Unit:=wdStory
            With Selection.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = xFindArr(I)
                .Replacement.Text = xReplaceArr(I)
                .Format = False
                .MatchWholeWord = False
            End With
            Selection.Find.Execute Replace:=wdReplaceAll
        Next
        Application.ScreenUpdating = True
    End Sub
  3. 按下 F5 鍵運行代碼。
  4. 在第一個 Kutools for Word 對話框中,輸入要查找和替換的多個單詞,並用逗號分隔,然後點擊 確定

    Enter entries to be replaced in this dialog

  5. 在第二個 Kutools for Word 對話框中,輸入替換單詞,同樣用逗號分隔,然後點擊 確定

    Enter new entries to use in this dialog

注意:在此示例中,“KTE”被替換為“New”,而“KTO”和“KTW”分別被替換為“Test”和“Finish”。根據您的需求進行修改。


使用一項強大的功能輕鬆在Word中同時查找和替換多個單詞

Kutools for Word批量查找與替換 功能是一個強大的工具,可簡化在單個文檔或跨多個文檔中同時查找和替換多個文本的過程。與標準的Word功能不同,此功能允許您以更高的效率批量處理替換,從而節省大量時間和精力。

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

按照以下步驟執行批量查找和替換:

  1. 啟動 Microsoft Word,然後點擊 Kutools > 批量替換

    Batch Replacement option on the Kutools tab on the ribbon

  2. 批量查找與替換 窗口中,按如下方式配置設置:
    1. 點擊 添加行 按鈕以插入查找和替換字段。例如,如果您需要替換三個不同的文本,則創建三行。
    2. 在每一行中,在 查找 列中輸入要替換的文本,並在 替換 列中輸入新文本。
      提示:您還可以為每個查找和替換規則指定查找類型、查找範圍、突出顯示顏色和格式,如下方截圖中的橙色高亮部分所示。
    3. 點擊 Add button 按鈕並選擇 添加文件添加文件夾 以添加一個或多個要執行查找和替換操作的文檔。
    4. 點擊 替換 按鈕以執行操作。

      Batch Find and Replace window

完成後,指定的單詞將在所選文檔中同時被替換。

Kutools for Word 是終極的 Word 增益工具,能夠簡化您的工作並提升文檔處理技能。立即獲取!

最佳辦公效率工具

Kutools for Word - 透過超過 100 項卓越功能提升您的 Word 體驗!

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

📘 文件精通拆分頁面 / 合併文檔 / 以多種格式導出選擇內容(PDF/TXT/DOC/HTML...)/ 批量轉換為 PDF...

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

🧹 輕鬆清理:清除多餘空格 / 分節符 / 文本框 / 超鏈接 / 更多清除工具,請前往“清除”組...

創意插入:插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 多張圖片 / 在“插入”組中發現更多...

🔍 精確選擇:精準定位特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多選擇 ”功能增強導航...

星級增強功能跳轉至任意位置 / 自動插入重複文本 / 在文檔窗口之間切換 / 11 轉換工具...

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

最佳辦公效率工具

Kutools for Word - 100+ Word 工具