Skip to main content

Kutools for Office — 一套工具,五種功能。完成更多工作。

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

Author Siluvia Last modified

在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內建 AI 🤖,提供超過 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 FeaturesAI AssistantReal-Time AssistantSuper Polish(保留格式)Super Translate(保留格式)AI RedactionAI Proofread...

📘 文件掌握分割頁面文檔合併區域導出成各種格式(PDF/TXT/DOC/HTML...)批量轉換為 PDF...

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

🧹 輕鬆清理:快速清除多餘空格分節符文字框超連結/更多清除工具請前往刪除工具組...

創意插入:插入千位分隔符複選框選項按鈕二維碼條形碼批量插入圖片/還有更多精彩功能在插入工具組...

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

亮點增強導航至任何區域自動插入重複文字切換文檔窗口11 轉換工具...

🌍 支援40+種語言:可用 Kutools於您偏好語言環境——支援英語、西班牙語、德語、法語、中文以及超過40種語言!

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

✨ Kutools for Office——一次安裝,五大強力工具!

包含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 五大工具一次全擁有 | 🔗 與 Microsoft Office 無縫整合 | ⚡ 即刻省時提高工作效率

最佳辦公效率工具

Kutools for Word - 100+ 款 Word 工具