需对多个文档内某部分内容进行替换时，会消耗大量精力且容易出现遗漏，此问题也是我自己工作中周期性遇到的情景。通过使用窗体实现信息交互达到多文档批量替换目的，效果如下：
关于VBA工具的使用可参照往期素材：
VBA工具的使用
dsk4651，公众号：office自动办公VBA小技巧纯小白教程，通过VBA将doc批量转化成docx
代码如下，此功能创建为窗体，仅有代码还无法运行，若需要窗体文件，可联系我。
Private Sub CommandButton1_Click()   '选择事件，当点击“选择文件按钮”运行程序，dsk4651Dim fd As FileDialogDim str As StringDim arr() As StringDim i As Integer  Set fd = Application.FileDialog(msoFileDialogFilePicker)    fd.AllowMultiSelect = True   '设置为允许多选，dsk4651    fd.Filters.Clear    fd.Filters.Add "Word文件", "*.doc*"        '通用代码，已多次使用，dsk4651    fd.Filters.Add "Excel文件", "*.xls*"    fd.Filters.Add "All file", "*.*"    fd.FilterIndex = 1    '默认文件夹内显示的为word文件，下拉可选择excel和其他文件，dsk4651            If fd.Show = -1 Then    Application.DisplayAlerts = wdAlertsNone        For i = 1 To fd.SelectedItems.Count            Documents.Open FileName:=fd.SelectedItems(i)            Selection.Find.ClearFormatting            Selection.Find.Replacement.ClearFormatting            With Selection.Find                       '根据窗体两个文本窗口输入的内容进行替换，dsk4651                .Text = Me.替换前内容一.Text                .Replacement.Text = Me.替换后内容一.Text                .Forward = True                .Wrap = wdFindContinue                .Format = False                .MatchCase = False                .MatchWholeWord = False                .MatchByte = True                .MatchWildcards = False                .MatchSoundsLike = False                .MatchAllWordForms = False            End With            Selection.Find.Execute Replace:=wdReplaceAll                                                            Selection.Find.ClearFormatting            Selection.Find.Replacement.ClearFormatting            With Selection.Find                .Text = Me.替换前内容二.Text                .Replacement.Text = Me.替换后内容二.Text                .Forward = True                .Wrap = wdFindContinue                .Format = False                .MatchCase = False                .MatchWholeWord = False                .MatchByte = True                .MatchWildcards = False                .MatchSoundsLike = False                .MatchAllWordForms = False            End With            Selection.Find.Execute Replace:=wdReplaceAll                                                          Selection.Find.ClearFormatting            Selection.Find.Replacement.ClearFormatting            With Selection.Find                .Text = Me.替换前内容三.Text                .Replacement.Text = Me.替换后内容三.Text                .Forward = True                .Wrap = wdFindContinue                .Format = False                .MatchCase = False                .MatchWholeWord = False                .MatchByte = True                .MatchWildcards = False                .MatchSoundsLike = False                .MatchAllWordForms = False            End With            Selection.Find.Execute Replace:=wdReplaceAll                                                                       Selection.Find.ClearFormatting            Selection.Find.Replacement.ClearFormatting            With Selection.Find                .Text = Me.替换前内容四.Text                .Replacement.Text = Me.替换后内容四.Text                .Forward = True                .Wrap = wdFindContinue                .Format = False                .MatchCase = False                .MatchWholeWord = False                .MatchByte = True                .MatchWildcards = False                .MatchSoundsLike = False                .MatchAllWordForms = False            End With            Selection.Find.Execute Replace:=wdReplaceAll                                    Selection.Find.ClearFormatting            Selection.Find.Replacement.ClearFormatting            With Selection.Find                .Text = Me.替换前内容五.Text                .Replacement.Text = Me.替换后内容五.Text                .Forward = True                .Wrap = wdFindContinue                .Format = False                .MatchCase = False                .MatchWholeWord = False                .MatchByte = True                .MatchWildcards = False                .MatchSoundsLike = False                .MatchAllWordForms = False            End With            Selection.Find.Execute Replace:=wdReplaceAll      '根据窗体大小，选择了五组替换文本框，dsk4651                                                ActiveWindow.Close        '关闭工作表，默认为保存关闭，dsk4651        Next i    Application.DisplayAlerts = wdAlertsAll        '这个好像用途不大，窗口还是闪，应该关掉屏幕刷新，dsk4651    End IfEnd Sub
运行过程为全部替换，在使用时还是需要细细斟酌，替换内容是否适合批量替换。
欢迎交流.
	

	

点击上方云中栖居关注 ▲
工作中经常在电脑中批量处理大量的图片、word、pdf等文件，需要批量修改文件名称、文件夹名称，有时还需要按序号排列。批量修改的方法网上有很多，但大部分是借助其他软件操作。比如使用专用的批量修改文件名的程序，或者使用excel、Photoshop、Adobe Lightroom等软件。
其实我们只是想让杂乱的文件名统一起来，顺便按序号排列，并不想使用太专业的软件和操作，不想花太多精力来操作。
这里介绍一个最简单的、在电脑中批量修改文件名称的小技巧，不借助任何工具，也不会花额外的时间，仅需要输入文件名称的时间就可以完成。以下是具体操作步骤方法。
第一步，全选需要批量修改名称的文件
可以使用“Ctrl+A”全选快捷键，或者使用“Shift”或者“Ctrl”辅助进行选择，将需要修改文件名称的文件全选。
第二步，点击鼠标右键，选择“重命名”
在你希望序号为1的、被选中的文件上，点击鼠标右键，选择“重命名”，输入文件名称，按Enter确定键，所有被选中的文件就被批量改为新名称了。如下图所示：
更快捷的修改方式
在这里推荐另一个更快捷的方式，使用键盘上的相当于鼠标右键的按键，来代替点击鼠标右键的操作。
只需要全选文件、按“鼠标右键按键”、再按“M”键、输入名称，就修改完成了，行云流水般快捷。
“鼠标右键按键”是键盘上的哪一个键
在键盘上，这个相当于鼠标右键的按键，一般位于右侧Shift键下面，图标和位置，如下图所示：
更多实用文章：『白云居丨https://baiyunju.cc』
▼点“

无论是写论文还是标书，我们经常会插入很多的图片，图片编号是不可避免的。如果是一边编辑一边插入那说明你对Word有比较深入的了解。
但是，你没在编辑的时候插入或者你就像一次性的完成这个工作，那该怎么办呢？
一、课前预览
今天就教给大家，利用查找跟替换来批量给图片添加编号。
本节重点：利用查找替换批量完成工作。无论后期删除图片，还是修改图片，编号都能自动进行修改。
二、详细步骤
1、随机选择一个图片插入题注。
①选中图片，在引用选项卡中插入题注；
②标签：图，位置：所选项目下方；点击确定即可。
2、查找替换。
①剪切一下插入的题注；
②打开查找替换对话框
查找：^g (^g为查找图片)
替换：^&^p^c (^&为查找的内容 ^p为段落标记^c为剪切板内容)
3、更新域
①Ctrl+A全选整篇文章；
②按F9键更新域(有些电脑需要同时按住Fn键)。
三、课后提升
1、如果需要题注居中，在复制之前就设置题注为居中；
2、本次的查找替换没有使用通配符；
----------------------
好了，学会了吗？如果你还遇到解决不了的问题，都可留言告诉我们。我们将在第一时间帮助您解决。
征集：征集20例Word实际操作案例，比如说：这个简历怎么做出来的？Word怎么做出美观的日历？日常看到的，工作需要的，都可以发过来，一起复盘，一起进步。

作者：陈熹