如何在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天)此实用程序, 请点击下载,然后按照上述步骤进行操作。
最佳办公生产力工具
Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!
🤖 Kutools 人工智能助手:用人工智能改变你的写作 - 生成内容 / 重写文本 / 总结文件 / 查询资料 基于文档,全部在Word中
📘 文档掌握: 分页 / 合并文件 / 以各种格式导出选择(PDF/TXT/DOC/HTML...) / 批量转换为PDF / 将页面导出为图像 / 一次打印多个文件...
✏ 内容编辑: 批量查找和替换 跨多个文件 / 调整所有图片的大小 / 转置表行和列 / 将表格转换为文字...
🧹 轻松清洁: 移开 多余的空间 / 分节符 / 所有标题 / 文本框 / 超链接 / 如需更多拆卸工具,请前往我们的 删除组...
➕ 创意插入: 插 千位分隔符 / 复选框 / 单选按钮 / 扫码支付 / 条码 / 对角线表 / 公式标题 / 图片说明 / 表标题 / 多张图片 / 发现更多 插入组...
🔍 精准选择:精确定位 特定页面 / 表 / 形状 / 标题段落 / 增强导航功能 更多 选择功能...
⭐ 星级增强: 快速导航至任何位置 / 自动插入重复文本 / 在文档窗口之间无缝切换 / 11 转换工具...