利用VBA可以轻松地将某文件夹下的所以WORD文档中的某个字符串全部替换为其他字符串。下面是具体操作步骤。
　　第一，首先将需要批量替换的多个Word文档放在同一文件夹下面。
　　第二，新建一空白Word文档，右击空白工具栏，单击“控件工具箱”，就可以看到屏幕上调出的控件工具箱。
　　第三，在控件工具箱上单击“命令按钮”，文档中就放置了一个按钮了。
　　第四，双击该按钮，进入VB代码编写模式，将以下代码复制进去。
Private SubCommandButton1_Click()

Application.ScreenUpdating = False

Dim myPas As String, myPath As String, i As Integer, myDoc AsDocument
WithApplication.FileDialog(msoFileDialogFolderPicker)

    .Title ="选择目标文件夹"

    If .Show =-1 Then

     myPath = .SelectedItems(1)

    Else

     Exit Sub

    End If

End With

myPas = InputBox("请输入打开密码：")
WithApplication.FileSearch

    .LookIn =myPath

    .FileType =msoFileTypeWordDocuments

    If .Execute> 0 Then

     For i = 1 To .FoundFiles.Count

       Set myDoc = Documents.Open(FileName:=.FoundFiles(i),Passworddocument:=myPas)

       Selection.Find.ClearFormatting

       Selection.Find.Replacement.ClearFormatting

       With Selection.Find

       .Text = "中微子工作室"

       .Replacement.Text = "www.jihetu.com"

       .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

      myDoc.Save

      myDoc.Close

      Set myDoc = Nothing

     Next

    End If

End With

Application.ScreenUpdating = True

End Sub
   第五，保存上面代码，退出VB编辑模式，返回Word文档界面。
　　第六，单击选中该按钮，再单击控件工具箱的第一个按钮“退出设计模式”。
　　第七，进行测试：点击按钮，选择要放置多个WORD文档所在的文件夹，确定后即可完成！注意如果WORD文档没有加密的话，密码项就不填，直接确认。 你会发现该文件夹下面的所有WORD文档中“中微子工作室”已被替换为“http://www.jihetu.com”了。
 
　　说明：在实际使用中，可以更改上面代码中的""引号里的字符内容为实际需要批量替换的内容即可。如下所
示。

　　.Text = "中国"
   .Replacement.Text ="China"
 
附：相关对象说明
1.Find对象
该对象代表查找操作的执行条件，其属性、方法和“替换”对话框中选项一致，具体如下所述：
（1）Font属性
该属性由于返回或设置Font对象，代表指定对象的字符格式。
（2）Wrap属性
该属性用于设置在搜索时进行的相关操作，可通过常量进行赋值，具体如下所述：
A、wdFindAsk常量：搜索完毕后，显示是否搜索文档的其他部分的消息框。
B、wdFindContinue常量：搜索完毕后，继续执行。
C、wdFindStop常量：搜索完毕后，停止执行。
（3）Format属性
该属性用于设置是否在查找操作中包含格式。
（4）MatchCase属性
该属性用于设置在查找时是否区分大、小写。
（5）MatchWholeWord属性
该属性用于设置是否在查找时仅对完整单词进行匹配。
（6）MatchByte属性
该属性用于设置是否在查找时区分全角和半角的字符。
（7）MatchWildcards属性
该属性用于设置是否在查找时允许使用查找通配符。
（8）MatchSoundsLike属性
该属性用于设置是否在查找时返回与待查文字发音相近的单词。
（9）Execute方法
该方法用于执行替换或查找操作。
（10）ClearFormatting方法
该方法用于清除替换或查找的内容。
2.Replacement对象
该对象代表查找和替换操作的替换条件，其属性、方法和“查找和替换”对话框中的选项一致，具体如下所述：
（1）Text属性
该属性用于设置选择内容中需查找或替换的文本。

Hello，大家好，今天跟大家分享下我们如何批量的更改word文档的名称，这也是一个粉丝提问到的问题，他有一整年的会议报告，有100多份。都是根据日期加上会议报道这几个命名的，如下图。现在他想要批量的将其更改为几月的第几次会议，比如1月的第1次会议，1月的第2次会议，以此类推，对于这样的问题手动更改确实非常的麻烦，我们可以利用excel和bat命令来达到快速重命名名称的效果
一、获取文件名
首先我们将所有的word都放在一个文件夹中，然后复制这个文件夹的路径，然后新建一个excel，找到数据选项卡，然后点击获取数据选择自文件从文件夹，然后将我们复制的路径粘贴到文件夹路径中，然后点击确定，当进入导航器的界面的时候我们直接点击转换数据即可
紧接着我们就进入了power query的界面，我们拖动鼠标选择name列以及Extension列然后点击鼠标右键选择删除其他列，然后点击name这一列数据，点击添加列选择重复列，这样的话我们就将name列复制了一份，然后点击复制的name这一列点击转换找到拆分列，选择使用分割符号拆分输入一个点，点击确定，这样的话我们就将name这一列拆分开来了
然后我们仅仅保留拆分的第二列，以及第三列数据，将其余的拆分数据删除，然后在主页中点击关闭并上载，将数据加载进excel中
二、处理数据.
紧接着我们将第三列以及第四列的表头名字更改为月份和天数，然后复制会议报告这几个字，紧接着按ctrl+h调出替换窗口，然后将复制的数据粘贴到查找内容中，紧接着选中天数这一列，然后点击全部替换将会议报告这一个字替换为空
紧接着我们点击数据的任何一个区域点击排序选择自定义排序，我们点击添加条件来添加一个排序的条件，将主要关键字设置为月份，将次要关键字设置为天数，次序设置为升序即可，然后点击排序，这样的话数据就会根据月份以及天数从大到小进行排列了
三、构建bat命名
紧接着我们新建添加三列数据
次数列：公式：=COUNTIF($C$2:C2,C2)
在这里我们使用countif函数对相同月份的会议填充序号
新名字列：公式：=C2&"月的第"&E2&"次会议"&B2
使用链接符号，链接月份字符以及次数构建新名字，在这里需要注意的是构建的名字必须要包含文件的扩展名
辅助列：公式：="ren"&" "&A2&" "&F2
使用链接符号构建bat命令，在这里我们将每一行的数据都设置为：ren空格文件名空格要更改的文件名
紧接着我们复制构建的辅助列的数据，回到存放所有word文档的文件夹新建一个文本文档，将复制的数据粘贴进去，然后保存并且将扩展名更改为bat，最后双击一下，即可批量更改所有word文档的名称
至此就完成了，在这里我们使用了bat命名批量更改文件名称，最主要的就是辅助列这一列数据的构建，大家可以试着做一下。
怎么样，你学会了吗？我是excel从零到一，关注我持续分享更多excel技巧

	

Hello，大家好，今天跟大家分享下我们如何批量的更改word文档的名称，这也是一个粉丝提问到的问题，他有一整年的会议报告，有100多份。都是根据日期加上会议报道这几个命名的，如下图。现在他想要批量的将其更改为几月的第几次会议，比如1月的第1次会议，1月的第2次会议，以此类推，对于这样的问题手动更改确实非常的麻烦，我们可以利用excel和bat命令来达到快速重命名名称的效果
一、获取文件名
首先我们将所有的word都放在一个文件夹中，然后复制这个文件夹的路径，然后新建一个excel，找到数据选项卡，然后点击获取数据选择自文件从文件夹，然后将我们复制的路径粘贴到文件夹路径中，然后点击确定，当进入导航器的界面的时候我们直接点击转换数据即可
紧接着我们就进入了power query的界面，我们拖动鼠标选择name列以及Extension列然后点击鼠标右键选择删除其他列，然后点击name这一列数据，点击添加列选择重复列，这样的话我们就将name列复制了一份，然后点击复制的name这一列点击转换找到拆分列，选择使用分割符号拆分输入一个点，点击确定，这样的话我们就将name这一列拆分开来了
然后我们仅仅保留拆分的第二列，以及第三列数据，将其余的拆分数据删除，然后在主页中点击关闭并上载，将数据加载进excel中
二、处理数据.
紧接着我们将第三列以及第四列的表头名字更改为月份和天数，然后复制会议报告这几个字，紧接着按ctrl+h调出替换窗口，然后将复制的数据粘贴到查找内容中，紧接着选中天数这一列，然后点击全部替换将会议报告这一个字替换为空
紧接着我们点击数据的任何一个区域点击排序选择自定义排序，我们点击添加条件来添加一个排序的条件，将主要关键字设置为月份，将次要关键字设置为天数，次序设置为升序即可，然后点击排序，这样的话数据就会根据月份以及天数从大到小进行排列了
三、构建bat命名
紧接着我们新建添加三列数据
次数列：公式：=COUNTIF($C$2:C2,C2)
在这里我们使用countif函数对相同月份的会议填充序号
新名字列：公式：=C2&"月的第"&E2&"次会议"&B2
使用链接符号，链接月份字符以及次数构建新名字，在这里需要注意的是构建的名字必须要包含文件的扩展名
辅助列：公式：="ren"&" "&A2&" "&F2
使用链接符号构建bat命令，在这里我们将每一行的数据都设置为：ren空格文件名空格要更改的文件名
紧接着我们复制构建的辅助列的数据，回到存放所有word文档的文件夹新建一个文本文档，将复制的数据粘贴进去，然后保存并且将扩展名更改为bat，最后双击一下，即可批量更改所有word文档的名称
至此就完成了，在这里我们使用了bat命名批量更改文件名称，最主要的就是辅助列这一列数据的构建，大家可以试着做一下。
怎么样，你学会了吗？我是excel从零到一，关注我持续分享更多excel技巧

节选自畅销书《Word之光》，作者李海潇
直奔主题
1. 生僻字生成拼音
我们难免会遇到几个文档里不认识的生僻字，不用查百度，用Word自带拼音功能可以帮你解决。只需要选中文本，单击“开始”选项卡的“拼音指南”命令按钮，就可以看到文字的拼音。
2. 设置自动保存时间，防止死机丢文件
花大力气写的文档还没保存，电脑就死机了，这种痛苦你是不是也经历过？其实，单击“文件”→“选项”→“保存”，把自动保存时间设置为“1分钟”即可。这样Word每隔1分钟就会自动保存一次。即使死机，顶多也就损失1分钟之内的内容。
3. 一键拆分表格
在Word里，当表格太长需要拆分时，很多人只能删除再新建一个表格。其实只需把光标置于表格要拆分的位置，按快捷键：Ctrl+Shift+Enter，就可以轻松搞定。
4. 竖向删除内容
Word里删除内容都要先选中，如果你要删除的内容是竖着对齐的怎么办？一行一行选中太费劲了，可以直接用竖向选择功能：按住Alt键，再按住鼠标左键来拖动，即可竖向选中文本。
5. 图片批量修改大小
文档里图片长宽不一，不美观，怎么快速统一大小呢？两步就好：
① 选中一张图片，在“图片格式”中，设置你需要的高度、宽度。
② 选中其他图片，单击键盘上F4键即可(笔记本电脑按Fn+F4键)。
6. 一页纸打印
打印时，可能总有那么一两行被单独甩到一页上。浪费纸，阅读起来还不方便。其实，只要设置一下“一页纸打印”即可：
在功能区的搜索文本框内直接输入“打印”二字，选择“预览和打印”→“打印预览编辑模式”。
在打印预览编辑模式中，单击“减少一页”命令。
7. 文本、表格相互转换
在Word里，当数据、信息多的时候，用表格肯定比纯文字清楚。这时你就可以把纯文字一键转换成表格。
① 选中你需要转换的文本，单击“插入”→“表格”→“文本转换成表格”。
② 观察“表格尺寸”，看行列数量是否正确。调整正确后点击“确定”。
注意：文本的分隔符号一定是英文符号，像咱们案例中的逗号就全部是英文逗号。
如果想把表格内容转成纯文字也很简单，只需要选中表格，单击“表格”→“布局”→“转换为文本”即可。
8. 图片批量居中
Word中插入图片默认都是左对齐，怎么给文档里数十张图片批量居中呢？用查找替换功能，批量替换图片格式，10秒就能搞定。
① Ctrl+H，打开“替换”对话框。
② 在“查找内容”一栏中输入“^g”(“^g”代表图片，^可以按shift+6输入)，或者单击“更多”→“特殊格式”→“图形”。
③ 在“替换为”一栏中，单击“格式”→“段落”→“对齐方式”，选中“居中”，然后点“全部替换”即可。
9. 合同信息两栏对齐
合同文档中甲乙双方的信息，通常要两栏对齐，用敲空格的方式可以暂且对齐，但一旦输入文本，后面的文字就跟着跑掉，很烦人：
正确做法是：
① 单击“视图”，勾选“标尺”，打开标尺功能。根据要对齐的位置，用鼠标左键在标尺上单击一下，即可插入一个制表符。
② 依次在文本要对齐的位置，敲键盘上的Tab键，就搞定了。
10. 批量删除空格空行
在网上下载的文档，打开总会有各种各样的空格、空白行。把所有的空行全删除，你可以用查找替换功能。
首先，删除所有空格：
① 按Ctrl+H，打开“替换”对话框。
② “查找内容”一栏中输入“^w”(代表空格，^可以按shift+6输入)，或者单击“更多”→“特殊格式”→“空白区域”。
③ “替换为”一栏空着即可，代表删除，最后单击“全部替换”。
然后删除所有空白行：
① 按Ctrl+H，打开“替换”对话框。
② “查找内容”中，输入两个“^p”(代表段落标记，也就是回车符)，或者单击“更多”→“特殊格式”→“段落标记”。
③ 在“替换为”输入一个“^p”，然后一直单击“全部替换”，直到替换数量显示剩0处。
{好文私人收藏}