如何在Word中跨多个文件搜索和替换？

网友投稿 326 2024-02-06

如何在Word中跨多个文件搜索和替换？

如果您有几十个包含相同内容（例如页眉，页脚，某些特殊单词或数字）的Word文件，则需要在Word中的那些文档中替换相同的内容。您如何更轻松地快速完成工作？当然，您可以一个个地打开这些文件以替换相同的内容，但这将很耗时且麻烦。本教程将向您展示一种巧妙的方式来一次替换Word中多个文档中的相同内容。

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

使用 Kutools for Word 同时轻松查找和替换多个文档中的不同文本 使用VBA代码同时查找和替换多个Word文档中的文本

1。按其他 + F11 打开 Microsoft Visual Basic应用程序窗口。

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

VBA代码：一次在多个文档中搜索和替换相同内容

Sub CommandButton1_Click() Updated by Extendoffice 20180625 Dim xFileDialog As FileDialog, GetStr(1 To 100) As String 100 files is the maximum applying this code Dim xFindStr As String Dim xReplaceStr As String Dim xDoc As Document On Error Resume Next Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker) With xFileDialog .Filters.Clear .Filters.Add "All WORD File ", "*.docx", 1 .AllowMultiSelect = True i = 1 If .Show = -1 Then For Each stiSelectedItem In .SelectedItems GetStr(i) = stiSelectedItem i = i + 1 Next i = i - 1 End If Application.ScreenUpdating = False xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr) xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr) For j = 1 To i Step 1 Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True) Windows(GetStr(j)).Activate Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = xFindStr Find What .Replacement.Text = xReplaceStr Replace With .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Application.Run macroname:="NEWMACROS" ActiveDocument.Save ActiveWindow.Close Next Application.ScreenUpdating = True End With MsgBox "Operation end, please view", vbInformation End Sub

3。按F5 键来运行代码。

4.在开幕浏览窗口，请找到并选择您将在其中找到并替换文本的文档，然后单击 OK 按钮。看截图：

5.在第一 Kutools for Word 对话框中，将您将在各个文档中找到的文本输入到 查找内容 框，然后单击 OK 按钮。

6.在第二 Kutools for Word 对话框中，输入将替换为的文本，然后单击 OK 按钮。

8。点击 OK 下一个按钮 微软Word 对话框以完成查找和替换。

在这种情况下，所选文档中的所有单词“ Word”将同时替换为“ Excel”。

使用 Kutools for Word 同时轻松查找和替换多个文档中的不同文本

在这里强烈推荐 批量查找和替换 的特点 Kutools for Word。使用此功能，您可以轻松地同时在多个Word文档中查找和替换不同的文本。让我们看看如何应用此功能来查找和替换文档中的文本。

Kutools for Word ：具有100多个方便的Word加载项， 免费试用，没有限制 60 天.