如何在Word文档中同时查找和替换多个单词？-英雄云拓展知识分享

Word提供了“查找和替换”功能以查找单词或短语的所有实例，并同时用新单词替换它们。 但是，如果您想同时查找和替换不同的单词，此内置函数将杯水车薪。 在本文中，我们讨论的是一种VBA方法，用于同时在Word文档中查找和替换多个不同的单词。

使用VBA代码在Word中同时查找和替换多个单词
借助惊人的功能轻鬆地在Word中同时查找和替换多个单词

使用VBA代码在Word中同时查找和替换多个单词

请履行以下操作以在Word文档中同时查找和替换多个单词。

1.打开要查找的Word文档，并同时替换多个单词，然后按 其他 + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2。 在里面 Microsoft Visual Basic for Applications 窗口中，单击 插入 > 模块。 然后将下面的VBA代码复制到“模块”窗口中。

VBA代码：在Word中同时查找和替换多个单词

Sub FindAndReplaceMultiItems()
' 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,seperated by comma: ", "")
xReplace = InputBox("Enter new items here, seperated by comma: ", "")
xFindArr = Split(xFind, ",")
xReplaceArr = Split(xReplace, ",")
If UBound(xFindArr) <> UBound(xReplaceArr) Then
MsgBox "Find and replace characters must be equal.", vbInformation, ""
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.在第一 对话框中，输入将找到的多个单词并将其替换到文本框中，并用逗号分隔它们，然后单击 OK 按钮。 看截图：

5.在第2 对话框中，输入要替换为的新单词（这些单词也需要用逗号分隔），然后单击 OK 按钮。

注意： 在这类情况下，所有 “ KTE” 在本文档中将被替换为 “新”， 及 “ KTO” 及 “ KTW” 将被替换为 “测试” 及 “完”。 请针对您的需要进行更改。

借助惊人的功能轻鬆地在Word中同时查找和替换多个单词

1.启动Microsoft Word利用程序，单击 实用工具 加 > 批量查找和替换.

2。 在里面 批量查找和替换 窗口，请进行以下配置。

• 2.1点击 按钮> 添加文件 or 添加文件夹 添加一个或多个文档，您将在其中找到并替换多个单词。
  
• 2.2点击 添加行 按钮插入查找和替换字段。 如果要同时查找和替换3个不同的文本，请创建3行。
• 2.3在每行中，输入要用新单词替换的现有单词。 发现 列，然后将新词输入到 更换 列。
• 2.4指定 搜索类型 每行。
• 2.5在 查找 列，选择将查找和替换利用到的位置。 这包括 主要文件, 头 及 页脚 在这个部份。 您可以针对需要选择其中之一，其中两个或全部。
• 2.6。 点击 更换 按钮开始操作。 看截图：

然后，同时在所选文档中替换特订单词。

小提示: 您可以经过在 重点特点 一列。

  如果您想免费试用（60天）此实用程序， 请点击下载，然后依照上述步骤进行操作。