如何轻松快速删除Excel中的空白行提升工作效率
237
2023-12-28
如何从 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应用程序 窗口。
2。 然后，点击 插页 > 模块，将以下 VBA 代码复制并粘贴到窗口中。
VBA 代码：在一个 Word 文件中查找和替换多个文本
Sub replace_texts_range_of_cells()
Updateby ExtendOffice
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 <> -1 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):", "Kutools 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, "Kutools 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, "Kutools 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
Copy
3. 粘贴代码后，仍然在 Microsoft Visual Basic应用程序 窗口中，单击 工具 > 参考资料，请参见屏幕截图：
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应用程序 窗口。
2。 然后，点击 插页 > 模块，将以下 VBA 代码复制并粘贴到窗口中。
VBA 代码：在多个 Word 文件中查找和替换多个文本
Sub FindReplaceAcrossMultipleWordDocuments()
Updateby ExtendOffice
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 <> -1 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", "Kutools 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, "Kutools 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, "Kutools 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, "Kutools for Excel"
ExitSub:
Set xRng = Nothing
Set xFolderDlg = Nothing
Set xWordApp = Nothing
Set xDoc = Nothing
End Sub
Copy
3。 仍在 Microsoft Visual Basic应用程序 窗口中，单击 工具 > 参考资料在 参考– VBAProject 对话框中，选择 Microsoft Word 16.0对象库 和 Microsoft脚本运行时 列表框中的选项，请参见屏幕截图：
4. 勾选两个选项后，点击 OK 关闭对话框，然后继续按 F5 执行此代码的关键，在开头 浏览 窗口，选择一个文件夹，其中包含要执行查找和替换的 Word 文档，看截图：
5。 点击 OK 按钮，在弹出的对话框中，按 按Ctrl 键分别选择要使用的原始文本和新文本列，请参见屏幕截图：
6。 最后点击 OK, 并将这些文件中的原始文本替换为新文本，完成后会弹出一个对话框，如下图所示：
7。 点击 OK 关闭对话框。 您可以转到文件来检查转换后的结果。
使用强大的功能查找和替换多个 Word 文档中的多个文本本节，我将讨论如何从 Word 而不是 Excel 中批量查找和替换多个 Word 文档中的文本。 借助强大的工具——Kutools for Word，您可以快速查找和替换特定文本，并将其替换为主文件、页眉、页脚、注释等中的新文本，并根据需要突出显示结果。
1. 打开一个 Word 文件，然后单击 Kutools 加 > 批量查找和替换，请参见屏幕截图：
2。 在开 批量查找和替换 对话框，请执行以下操作：
点击 地址 按钮添加要查找和替换文本的 Word 文件； 在左侧窗格中，单击 添加行 从顶部功能区； 在插入的字段中，将原始文本和新文本输入到 找到最适合您的地方 和 更换 要查找和替换的单独列。 同样，您可以根据需要指定一种颜色来突出显示替换的文本。3. 创建搜索条件后，单击 更换 按钮去 预览结果 选项卡以查看查找和替换结果。 看截图：
4。 然后，点击 关闭 按钮，会弹出提示框提醒您是否要保存该场景，点击 是 保存它，然后单击 没有 要忽略它，请参见屏幕截图：
Tips：此功能还可以帮助实现以下操作：
查找和替换多个Word文档中的特殊字符；
在多个 Word 文档中查找并替换具有特定格式的多个字符串；
在多个 txt/htm/html 文件中查找和替换多个字符串。
单击以了解此功能的更多详细信息...
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
立即下载，与 Excel 一起穿越时空！
阅读更多
免费下载... 采购...
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
阅读更多
免费下载... 采购...
版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。
相关文章
推荐文章
最近发表
