如何在Word 文档中同时查找和替换多个单词？

网友投稿 425 2024-02-04

如何在Word文档中同时查找和替换多个单词？

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

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

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

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

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

2.在 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块。 然后将下面的VBA代码复制到“模块”窗口中。

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

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,seperated by comma: ", "Kutools for Word") xReplace = InputBox("Enter new items here, seperated 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 对话框中，输入将找到的多个单词并将其替换到文本框中，并用逗号分隔它们，然后单击 OK 按钮。看截图：

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

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

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

批量查找和替换 的特点 Kutools for Word 可以帮助您轻松地在一个文档中或同时在多个文档中查找和替换不同的文本。

在应用此功能之前，请花几分钟 首先下载并安装.

1.启动Microsoft Word应用程序，单击 Kutools 加 > 批量查找和替换.

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

2.1点击按钮> 添加文件 or 添加文件夹

添加一个或多个文档，您将在其中找到并替换多个单词。

2.2点击 添加行按钮插入查找和替换字段。如果要同时查找和替换三个不同的文本，请创建三行。 2.3在每一行中，输入要用新单词替换的现有单词。找到最适合您的地方 列，然后将新词输入到更换列。 2.4指定 搜索类型 每行。 2.5在查找列，选择将查找和替换应用到的位置。这包括 主要文件, 标题和页脚在这个部分。您可以根据需要选择其中之一，其中两个或全部。 2.6。点击更换按钮开始操作。看截图：