如何从 Excel 中查找和替换 Word 文档中的文本？-英雄云拓展知识分享

如何从 Excel 中查找和替换 Word 文档中的文本？

在 Word 文档中，我们可以利用查找和替换功能快捷查找和替换一个文本。 但是，如果需要查找和替换多个文本，将文本逐一输入到查找和替换功能中会很耗时。 在这类情况下，您可以将查找和替换文本输入到单元格列表中，并在 Excel 中的 VBA 代码的帮助下轻鬆完成这项工作。 在本文中，我还将介绍一个有用的功能，可以批量查找和替换多个 Word 文档中的文本。

使用 VBA 代码从 Excel 中查找和替换一个 Word 文档中的多个文本

使用 VBA 代码从 Excel 中查找和替换多个 Word 文档中的多个文本

使用强盛的功能查找和替换多个 Word 文档中的多个文本

使用 VBA 代码从 Excel 中查找和替换一个 Word 文档中的多个文本

如果您只想在一个 Word 文件中查找和替换某些文本，下面的 VBA 代码可以帮到您。

1. 在 Excel 工作表中，创建一个包括要查找和替换的文本的列，和另外一个包括要替换的文本的列，以下图所示。 然后按 Alt + F11 同时打开 Microsoft Visual Basic for Applications 窗口。

2。 然后，点击 插入 > 模块，将以下 VBA 代码复制并粘贴到窗口中。

VBA 代码：在一个 Word 文件中查找和替换多个文本

Sub replace_texts_range_of_cells()
'Updateby
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> ⑴ Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "tools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "tools for Excel"
GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
(xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "tools for Excel"
GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
With xDoc.Application.Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = xRng.Areas.Item(1).Cells.Item(I).Value
.Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
Set xRng = Nothing
Set xFileDlg = Nothing
Set xWordApp = Nothing
Set xDoc = Nothing
End Sub

3. 粘贴代码后，依然在 Microsoft Visual Basic for Applications 窗口中，单击 工具 > 参考，请参见屏幕截图：

4。 在弹出的 参考– VBAProject 对话框中，选择 Microsoft Word 16.0对像库 从列錶框中，看截图：

5。 点击 OK 按钮关闭对话框，现在，按 F5 键运行此代码，在弹出的阅读窗口中，选择要替换文本的 Word 文件，看截图：

6。 然后，点击 OK, 在以下对话框中，按 按Ctrl 键分别选择要使用的原始文本和新文本单元格，请参见屏幕截图：

7。 然后，单击 OK 按钮，现在，文本被找到并替换为您指定文档中的新文本，并且文件也正在打开，您应当保存它以保存更改。

使用 VBA 代码从 Excel 中查找和替换多个 Word 文档中的多个文本

在这里，我还创建了一个 VBA 代码，用于在多个 Word 文档中查找和替换多个文本，请这样做：

1. 打开包括两列要替换和替换的值的 Excel 文件，以下图所示，然后按 Alt + F11 同时打开 Microsoft Visual Basic for Applications 窗口。

2。 然后，点击 插入 > 模块，将以下 VBA 代码复制并粘贴到窗口中。

VBA 代码：在多个 Word 文件中查找和替换多个文本

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> ⑴ Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "tools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "tools for Excel"
GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
(xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "tools for Excel"
GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
Set xDoc = xWordApp.Documents.Open(xFile.Path)
For I = 1 To xRng.Areas.Item(1).Cells.Count
With xDoc.Application.Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = xRng.Areas.Item(1).Cells.Item(I).Value
.Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
xDoc.Close wdSaveChanges
End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "tools for Excel"
ExitSub:
Set xRng = Nothing
Set xFolderDlg = Nothing
Set xWordApp = Nothing
Set xDoc = Nothing
End Sub

3。 仍在 Microsoft Visual Basic for Applications 窗口中，单击 工具 > 参考在 参考– VBAProject 对话框中，选择 Microsoft Word 16.0对像库 及 Microsoft脚本运行时 列錶框中的选项，请参见屏幕截图：

4. 勾选两个选项后，点击 OK 关闭对话框，然后继续按 F5 履行此代码的关键，在开头 阅读 窗口，选择一个文件夹，其中包括要履行查找和替换的 Word 文档，看截图：

5。 点击 OK 按钮，在弹出的对话框中，按 按Ctrl 键分别选择要使用的原始文本和新文本列，请参见屏幕截图：

6。 最后点击 OK, 并将这些文件中的原始文本替换为新文本，完成后会弹出一个对话框，以下图所示：

7。 点击 OK 关闭对话框。 您可以转到文件来检查转换后的结果。

使用强盛的功能查找和替换多个 Word 文档中的多个文本

本节，我将讨论如何从 Word 而不是 Excel 中批量查找和替换多个 Word 文档中的文本。 借助强盛的工具——tools for Word，您可以快捷查找和替换特定文本，并将其替换为主文件、页眉、页脚、注释等中的新文本，并针对需要突出显示结果。

1. 打开一个 Word 文件，然后单击 tools 加 > 批量查找和替换，请参见屏幕截图：

2。 在开 批量查找和替换 对话框，请履行以下操作：

• 点击 加入 按钮添加要查找和替换文本的 Word 文件；
• 在左边窗格中，单击 添加行 从顶部功能区；
• 在插入的字段中，将原始文本和新文本输入到 发现 及 更换 要查找和替换的单独列。 一样，您可以针对需要指定一种色彩来突出显示替换的文本。

3. 创建搜索条件后，单击 更换 按钮去 预览结果 选项卡以查看查找和替换结果。 看截图：

4。 然后，点击 关闭 按钮，会弹出提示框提示您是不是要保存该场景，点击 是 保存它，然后单击 没有 要疏忽它，请参见屏幕截图：

选择英雄云的云表单=选择更智能的Excel

>>>>🚀🌟 点击注册 免费试用 更高级的-英雄云企业级云表单 🌟🚀 😃👉🌐>>>>

在现代企业管理中，数据的高效管理和处理至关重要。随着信息技术的不断发展，英雄云的云表单已经成为了提高数据录入、管理和分析效率的不可或缺的工具。让我们来深入探讨英雄云-云表单的几大优势。

基础字段：多样性满足业务需求

英雄云的云表单中包括了各种基础字段，如单行文本、多行文本、数字输入框、单选框、复选框、下拉框、下拉复选框、日期时间、分割线等。这些字段的多样性使用户可以根据具体的业务需求，轻松进行文本、数据和时间信息的录入或修改。例如，您可以使用单行文本字段录入员工姓名、产品型号等，或者使用下拉框进行多选，根据不同情况选择更加方便的字段类型。

高级字段：提升工作效率

英雄云的云表单还提供了高级字段，如地址、图片、附件、手写签名、手机、子表、关联数据、关联查询以及流水号。这些高级字段在基础字段的基础上升级，可帮助用户完成一些琐碎的工作。例如，使用地址字段可以避免逐字打字，而流水号字段可以自动生成规律性的编号，非常适用于合同编号生成等场景。

部门成员字段：精确管理与通讯录的关联

英雄云的部门成员字段允许企业对各个部门的成员进行精确管理。用户可以通过部门成员字段获取通讯录中的部门成员信息，应用于记录报销人、报销部门等场景。这些成员字段还细分为成员单选和成员多选，可根据具体需求在通讯录中选择一个或多个成员。

聚合表：数据处理更智能

英雄云的聚合表功能用于对已存在的表单数据进行聚合计算，从而得到一张聚合表，后续其他表单可调用聚合表进行数据联动、关联查询和关联数据等操作完成数据处理。这一功能可应用于多种场景，如进销存管理、财务管理和门店零售管理等，帮助企业完成数据处理，提高工作效率。

表单权限设置：灵活管理数据访问

英雄云的表单权限设置允许用户根据企业的具体需求管理表单的访问和操作权限。用户可以根据系统权限或自定义权限对不同成员或团队进行权限设置，以确保数据的安全和合规性。这一功能使企业能够根据变化的业务需求和团队结构，实时调整权限设置。

自定义打印模板：文档输出更便捷

英雄云的云表单支持自定义打印模板，可将表单数据转换为可打印的Word文档。用户可以根据自己的需求进行排版和编辑，将产品规格说明书等文档轻松生成。这一功能提供了一种标准化的文档输出方式，简化了信息整理的过程。

综合来看，选择英雄云的云表单意味着选择更智能、更灵活、更高效的数据管理工具。无论是提高工作效率，精确管理数据，还是实现数据处理，英雄云的云表单都能满足您的多样化需求，助力您的业务发展。

如果您正在寻找一款强大的云表单工具，不妨考虑英雄云，它将为您带来更多的便捷和智能，助您事半功倍。

免责声明：

本网址（www.yingxiongyun.com）发布的材料主要源于独立创作和网友匿名投稿。此处提供的所有信息仅供参考之用。我们致力于提供准确且可信的信息，但不对材料的完整性或真实性作出任何保证。用户应自行验证相关信息的正确性，并对其决策承担全部责任。对于由于信息的错误、不准确或遗漏所造成的任何损失，本网址不承担任何法律责任。本网站所展示的所有内容，如文字、图像、标志、音频、视频、软件和程序等的版权均属于原创作者。如果任何组织或个人认为网站内容可能侵犯其知识产权，或包含不准确之处，请即刻联系我们进行相应处理。