替换文件夹下所有文档的内容，需要替换的文档不能打开，采用宏进行批量替换，亲测成功，测试是word2016
根据简书作者改编https://www.jianshu.com/p/9d348b8015b6?utm_campaign=maleskine&utm_content=note&utm_medium=seo_notes&utm_source=recommendation
第一步：新建一个Word并打开，点击工具栏视图–宏(下边的倒三角)–查看宏

第二步：填写一个文件名，点击创建

第三步：复制以下代码，替换新创建的宏代码(如果以前有宏注意不要误删)，注意代码格式，保存

Sub CommandButton1_Click()
Application.ScreenUpdating = False  '关闭屏幕闪
Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$
Set myAPP = New Word.Application
With Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹
    .Title = "选择目标文件夹"
    If .Show = -1 Then
        myPath = .SelectedItems(1) '读取选择的文件路径
    Else
        Exit Sub
    End If
End With
myPath = myPath & ""
myFile = Dir(myPath & "\*.docx")
txt = InputBox("需要替换的文字：")
Re_txt = InputBox("替换成：")
myAPP.Visible = True '是否显示打开文档
Do While myFile <> "" '文件不为空
Set myDoc = myAPP.Documents.Open(myPath & "\" & myFile)
If myDoc.ProtectionType = wdNoProtection Then '是否受保护
    With myDoc.Content.Find
        .Text = txt
        .Replacement.Text = Re_txt
        .Forward = True
        .Wrap = 2
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=2
    End With
End If
myDoc.Save
myDoc.Close
myFile = Dir
Loop
myAPP.Quit '关掉临时进程
Application.ScreenUpdating = True
MsgBox ("全部替换完毕！")
End Sub

第四步：回到Word文档，点击视图–宏，运行宏

第五步：弹出窗口，选择需要替换文档的文件夹(文件夹下不会显示文件名)

第六步：要替换的文字

第七步：替换成

第八步：需要等待一会，显示全部替换完毕即可

1、新建一个word文本，点击”开发工具“菜单下的”宏“按钮（如没有开发工具可点击”视图“下的宏按钮）

2.输入名称后点击”创建“按钮

3.输入如下代码：

Sub CommandButton1_Click()
Application.ScreenUpdating = False  '关闭屏幕闪
Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$
Set myAPP = New Word.Application
With Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹
    .Title = "选择Word所在文件夹"
    If .Show = -1 Then
        myPath = .SelectedItems(1) '读取选择的文件路径
    Else
        Exit Sub
    End If
End With
myPath = myPath & ""
myFile = Dir(myPath & "\*.docx")
txt = InputBox("需要替换的文字：")
Re_txt = InputBox("替换成：")
myAPP.Visible = True '是否显示打开文档
Do While myFile <> "" '文件不为空
Set myDoc = myAPP.Documents.Open(myPath & "\" & myFile)
If myDoc.ProtectionType = wdNoProtection Then '是否受保护
    With myDoc.Content.Find
        .Text = txt
        .Replacement.Text = Re_txt
        .Forward = True
        .Wrap = 2
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=2
    End With
End If
myDoc.Save
myDoc.Close
myFile = Dir
Loop
myAPP.Quit '关掉临时进程
Application.ScreenUpdating = True
MsgBox ("全部替换完毕！")
End Sub

完成后点击 ”保存“，然后关闭

4.回到Word文档，点击宏，运行宏

5.按照向导进行替换过程，等待弹出”全部替换完毕“后即可。

概要：「我的ABC软件工具箱」支持批量查找 Word 文件中的关键字，并进行批量修改替换这些关键字。同时也支持批量查找修改替换 PPT 文件、Excel 文件、PDF 文件和文本文件（如：记事本 TXT、HTML、XML 等），我们可以使用这个工具实现批量删除文件内的关键字，或修改替换成我们想要的关键字，非常实用。

文件内容的查找与替换对我们每办公族来说再正常不过了，因为在工作中经常会需要碰到。今天要介绍的这款办公文件批量处理软件——我的ABC软件工具箱，它有个【按规则批量修改文件内容】的功能可以实现批量修改和替换 Word 文件的内容，同时也支持批量修改和替换 Excel、PPT、PDF、Txt 记事本、HTML、XML 等文本文件的内容。

添加需要批量查找和替换的文档

打开软件，进入「 按规则批量修改文件内容」的功能中，如下图：

在右上角添加需要批量查找和替换的 Word、PPT、Excel、PDF 和文本文件（如：记事本 TXT、HTML、XML 等文件）：

设置批量查找和替换的规则

上面已经添加了需要批量查找和替换文件内容的文档列表，这一步我们需要设置批量查找和替换的规则信息，一条规则是指我们一次查找与替换的设置，它明确地告诉软件需要批量查找什么以及需要批量替换成什么。

如果我们需要将 Word 文件中的文本内容「ABC」 批量修改替换为「我的ABC」，那么可以这样设置：

设置完后直接点保存按钮，然后一直下一步就可以了。

查找类型说明

精确文本

精确文本是指我们输入的文本就是软件需要查找的内容，比如我在软件上填的查找内容为「ABC」，那么软件在批量查找 Word 文件时，如果该 Word 文件中确实存在「ABC」这个文本，那么就表示查找成功。换一句话说，这个查找类型不支持通配符。

模糊文本

模糊文本查找和我们平常说的「通配符」是一个意思，软件中使用的是「正则表达式」作为通配符的语法，和我们日常理解的「通配符」的语法差异很大，需要学习一下。

批量精确文本

只需要添加一条规则，同时精确查找和修改替换多个关键字

批量模糊文本

只需要添加一条规则，同时模糊查找和修改替换多个关键字