使用说明
功能：把一个文件夹下面的word文档按原文档的格式批量合并成一个word文档。
准备工作
把 合并文件.docm和需要合并的word文档（例如：测试用的文档1.docx、测试用的文档1.docx）放入一个文件夹里面
调用宏方法
打开开发工具-宏
功能介绍
可以看到两个宏名称
1、writeFileNameList
把目录下的文档名称写入filelist.txt文件里面，调整测试用文档的顺序。
2、createManyToOneWordAndSave
把filelist.txt文档合并成一个文档，保存在《合并后文档.docx》
代码
Sub writeFileNameList()
Dim f As String
MyPath = ActiveDocument.Path
f = MyPath & "\filelist.txt"
MyName = Dir(MyPath & "\" & "*.doc")
Open f For Output As #1
I = 0
Do While MyName <> ""
If MyName <> ActiveDocument.Name And MyName <> "合并后文档.docx" Then
I = I + 1
Print #1, MyName
End If
MyName = Dir
Loop
Close #1
End Sub
.......
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
例子下载
https://download.csdn.net/download/weixin_44357283/11148830
————————————————
版权声明：本文为CSDN博主「chyp432」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/weixin_44357283/article/details/89679788