多个Word文档合并为一个文档的方法（2/2）
好书推荐： 逍遥悍匪：开局一箱手榴弹
领主时代：我在异界解放奴隶
晋书：亡灵篇
搅弄风衣：这京都的天该变了！
混水摸鱼一亿年
幻界：魔瞳
我送你！
医术无双：从急诊科医生开始
你说呐喊有声音吗
末世也得遵纪守法
虾皮小说【www.xpxs.net】第一时间更新《日常生活工作学习知识积累》最新章节。
2. 按`Alt + F11`打开VbA编辑器。
3. 插入一个新模块，并输入以下宏代码：
```vba
Sub binedocuments dim mydoc As document
dim filepath As String
dim fileName As String
dim folderpath As String
' 设置文件夹路径
folderpath = \"c:\\YourFolderpath\\\" ' 更改为你的文件夹路径
' 获取文件夹中第一个word文件
fileName = dir(folderpath & \"*.docx\")
' 循环遍历所有文件
do while fileName ＜＞
' 打开文件
Set mydoc = documents.open(folderpath & fileName)
' 将内容添加到主文档
Activedocument.content.InsertAfter mydoc.content
' 关闭打开的文档
mydoc.close False
' 获取下一个文件
fileName = dir Loop
End Sub
```
4. 运行宏，将指定文件夹中的所有word文档合并到当前打开的文档中。
选择适合你的方法进行操作，就可以快速将多个word文档合并为一个。