如何实现多个Word文档的自动合并
大家好，我们今日继续讲解VBA代码解决方案的第147讲内容：如何实现多个文档的合并。这一讲是VBA代码解决方案的最后一讲内容了，其实关于WORD中利用VBA的内容还很多，余下的内容就不再这里讲了。这套方案基本上覆盖了整个VBA相关内容的大多数的知识点，VBA作为一种寄生的语言毕竟有着自己的局限性，如果能熟练掌握本套方案的内容，对于工作中遇到的问题基本上能做到得心应手，余下的就是自己提高的过程了。好了，还是回到我们这讲的内容，如果合并多个文档。
日常办公中，合并文档是经常需要处理的，当文件数量较少、文件体积较小时可以轻松应对，但当文件数量较多、文件体积较大时，操作起来就要花费大量的时间和精力，而且很容易出错。比如，每年年末，公司所有员工都要交工作总结，人事部门需要将某部门的总结汇总到一个文件里，以便向总经理汇报。这时就可以借助VBA实现文件的批量操作，大大提高办公效率和准确性。
那么如何利用VBA进行文档的合并呢？首先，我们把所有需要合并的文件都在同一个文件夹中；所有需要合并文件的文件名要有一定的规律，最好是连续的数字。当然如果不是连续的数字也是可以处理的，这个问题朋友们可以自己去考虑，这里我讲的是基本的操作。
我这里有几个文件，放在桌面的一个名为"新建文件夹"的文件夹下面，里面有3个文档，还有一个文档是用来放合并后的文档的,如图：
这个时候的程序该如何写呢：看我下面的代码：
Sub mynzHB()
filedir = "C:\Users\nl\Desktop\新建文件夹" '指定文件存放路径
Application.ScreenUpdating = False '关闭屏幕刷新提高速度
Dim filenum As Integer '要合并的文件数
Dim a As Integer '定义数字变量
Dim FileName1 As String '合并后的文件名
Dim FileName2 As String '定义要合并的文件名变量
filenum = 3
FileName1 = "合并.docx"
a = 1
Do While a <= filenum '由于我是事先知道要合并的数目，所以这里的条件就简单多了
FileName2 = CStr(a) & ".docx" '文件名的处理
ChangeFileOpenDirectory filedir '路径指示
Documents.Open FileName:=FileName2 '打开要合并的文件
Selection.WholeStory '全选
Selection.Copy '复制
ActiveDocument.Close '关闭文件
Documents.Open FileName:=FileName1 '打开合并后的文件
Selection.EndKey Unit:=wdStory '将光标移到文件尾部
Selection.TypeParagraph '插入新段落，避免合并混乱
Selection.PasteAndFormat (wdPasteDefault) '粘贴
ActiveDocument.Save '保存文件
ActiveDocument.Close '关闭文件
a = a 1 '变量加1，然后处理下个文件
Loop
MsgBox "任务完成，共有" & a - 1 & "个文档被合并!" & "请查看文件"
Documents.Open FileName:=FileName1 '打开合并后的文件
End Sub
代码截图;
由于必要的解释我在代码中都加了注释，就不再解释代码了，只看看运行后的"合并"文件；
下面看一看运行过程的录屏：
50
今日内容回向：
1 如何合并几个文档到相同的文件？
2 在本节的实例中，我讲了最为简单的方法，工作中如果是复杂的条件，比如文档的命名不是很规范，你有解决的思路吗？
相关推荐
-
word文档怎么自动输入编号
word文档怎么自动输入编号 1.如图,我们希望word能自动帮我们输入前面的编号,我们只要在编号后面加上内容就可以了. 2.将光标放在需要插入编号的地方,按右键,选择"编号" ...
-
怎么关闭Word文档中自动添加项目编号
怎么关闭Word文档中自动添加项目编号 1.启动Word 2013,打开"Word选项"对话框,在左侧选择"校对"选项,在右侧窗格中的"自动更正选项& ...
-
word文档怎么自动添加目录呢?
含有章节的word文档自动添加目录会方便我们对word每章的管理和编辑,不必再一直的拖动进度条,下面小编就为大家介绍如何操作的方法,来看看吧! 步骤 在WPS导航栏里选择“视图”,点击下方导航栏点击“ ...
-
删除word文档字体自动出现的下划线的方法
我们在刚使用word的时候经常会遇到文字下面出现下划线不知道怎么解决的问题,下面就给大家讲讲删除word文档字体自动出现的下划线的方法.具体如下:1.第一步,在电脑上打开word软件,然后打开你需要删 ...
-
怎么使用word文档的自动恢复功能恢复受损文件
有时,我们会因为电脑问题导致word文档损坏了,那么我们该怎么恢复这些文件?今天小编就来跟大家分享一下使用word文档的自动恢复功能方法.具体如下:1.首先,我们打开word文档,点击文档左上角的&q ...
-
在哪里可以设置Word文档的自动保存时间功能
假如我们在Word文档中设置了自动保存时间功能,那么即使以后编辑完文档忘了保存文档,APP也会自动帮我们保存文档.这个功能是不是很方便我们办公呢?请大家往下看具体设置方法!具体如下:1. 首先,我们点 ...
-
Word文档怎么自动生成目录
Word文档怎么自动生成目录?其实不难,先设置标题格式,然后插入索引即可.具体操作步骤如下:1. 首先双击电脑上的word文档.2. 这里我选择的是预先录入好文字的word文档以方便演示.3. 接下来 ...
-
怎么给Word文档设置自动滚动阅读
我们在浏览Word文档时,最常用的方法就是借助鼠标滚动浏览,今天给大家介绍一下怎么给Word文档设置自动滚动阅读的具体操作步骤.1. 首先打开电脑上的想要浏览的word文档,在页面左上角点击" ...
-
如何给word文档的自动编号设置为可以单独修改的纯数字编号
我们在给Word文档进行自动编号的时候,不太方便单独为某一个编号进行修改,如果想要修改怎么办呢?今天就跟大家介绍一下如何给word文档的自动编号设置为可以单独修改的纯数字编号的具体操作步骤.1. 首先 ...
-
如何给word文档设置自动生成目录
我们在使用Word文档编辑文字的时候,想要自动生成目录,该怎么操作呢?今天就跟大家介绍一下如何给word文档设置自动生成目录的具体操作步骤.1. 首先打开电脑上想要编辑的Word文档,依次点击上方的& ...
