Note: The other languages of the website are Google-translated. Back to English

如何在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。 点击 更换 按钮开始操作。 看截图:

然后,将同时替换所选文档中的特定单词。

提示: 您可以通过在 近期亮点 一列。

  如果您想免费试用(60天)此实用程序, 请点击下载,然后按照上述步骤进行操作。


推荐的Word生产力工具

 

Kutools For Word-Word超过100种高级功能,可节省50%的时间

  • 复杂和重复的操作可以在几秒钟内完成一次处理。
  • 跨文件夹一次将多个图像插入Word文档。
  • 将文件夹中的多个Word文件合并并合并为所需顺序。
  • 根据标题,分节符或其他条件将当前文档拆分为单独的文档。
  • 在Doc和Docx之间,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等...
按评论排序
注释 (17)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování。 Jak toho dosáhnu?
加卡1
该评论由网站上的主持人最小化
这可以在 Office Excel 365 中使用吗
里沙布耆那教
该评论由网站上的主持人最小化
有什么方法可以使这个大小写敏感吗?
亚当
该评论由网站上的主持人最小化
嗨,这适用于英语单词。 现在我正在做一份文件,将英语翻译成古吉拉特语。 所以,当我应用这个(查找英语单词)和(替换为古吉拉特语单词)时,它确实发生了变化,但它看起来像“???”。 不显示古吉拉特语,而只是问号? 有什么进一步的帮助吗? 请。
谢莱什·帕特利亚
该评论由网站上的主持人最小化
你好 Shailesh,面临同样的问题。 你找到解决办法了吗。 我也想弄清楚如何从中文变成英文。
基里尔
该评论由网站上的主持人最小化
如何同时查找和选择多个单词
兰吉特·贾格塔普
该评论由网站上的主持人最小化
嗨,
运行代码后,会弹出一个 Kutools for Excel 对话框,请输入您将找到的关键字并用逗号分隔它们。
水晶
该评论由网站上的主持人最小化
嗨,如何修改这个宏以获取更多关键词? 我有大约 170 个单词我想查找和替换
JM
该评论由网站上的主持人最小化
嗨,JM,
运行代码后,会弹出一个 Kutools for Excel 对话框,请输入您将找到的关键字并用逗号分隔它们。
水晶
该评论由网站上的主持人最小化
你好! 首先,祝贺你的工作:这个宏非常有用和有趣! 我想,尽管如此,你帮我做一件事。 我是一名校对员,希望替换件以绿色或红色突出显示。 我怎样才能做到这一点? 有我可以使用的代码行吗?
沃尔特·门德斯
该评论由网站上的主持人最小化
你好, Kutools for Word 的批量查找和替换功能可以完美解决您的问题,您可以试一试。
水晶
该评论由网站上的主持人最小化
点击替换后,它只是进入预览,不再做任何事情。
AJS
该评论由网站上的主持人最小化
嗨,阿杰, 点击替换按钮后,所有必需的单词都已成功替换。 它转到“预览”选项卡以帮助您了解已成功替换了多少单词。 之后,关闭对话框。
水晶
该评论由网站上的主持人最小化
如果我想替换逗号怎么办?
AJs
该评论由网站上的主持人最小化
VBA 代码不能帮助替换逗号。 您可以应用 Kutools 来实现。
水晶
该评论由网站上的主持人最小化
在第一条指令(使用 VBA 代码在 Word 中同时查找和替换多个单词)中,它没有找到要替换的单词位于单词中间的实例(例如,网站名称后面的 .com) . 可以对此进行修改吗?
韦恩
该评论由网站上的主持人最小化
谢谢你的项目,你能不能把它做成我们也可以用文字替换字母的方式。 例如,如果我想将美元更改为 DoLLar,它就不起作用。
优秀的家伙
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0  产品特性
建议地点