多个Word文档合并为一个文档的方法（2 / 2）

2. 按`A + F11`打开VbA编辑器。

3. 插入一个新模块，并输入以下宏代码：

```vba

Sub binedotsdim mydoc As dot

dim filepath As String

dim fileName As String

dim folderpath As String

#039 设置文件夹路径

folderpath = \\quotc:\\\\YourFolderpath\\\\\\quot #039 更改为你的文件夹路径

#039 获取文件夹中第一个word文件

fileName = dir(folderpath \\quot*.docx\\quot)

#039 循环遍历所有文件

do while fileName ＜＞

#039 打开文件

Set mydoc = dots.open(folderpath fileName)

#039 将内容添加到主文档

Activedot.tent.IAfter mydotent

#039 关闭打开的文档

mydoc.close False

#039 获取下一个文件

fileName = dirLoop

End Sub

```

4. 运行宏，将指定文件夹中的所有word文档合并到当前打开的文档中。

选择适合你的方法进行操作，就可以快速将多个word文档合并为一个。', '。')