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

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

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

```vba

Sub bedotsdi ydoc As dot

di filepath As Strg

di fileNa As Strg

di folderpath As Strg

' 设置文件夹路径

folderpath = \"c:\\YourFolderpath\\\" ' 更改为你的文件夹路径

' 获取文件夹中第一个word文件

fileNa = dir(folderpath & \"*.docx\")

' 循环遍历所有文件

do while fileNa ＜＞

' 打开文件

Set ydoc = dots.open(folderpath & fileNa)

' 将内容添加到主文档

Activedot.tent.IAfter ydotent

' 关闭打开的文档

ydoc.close False

' 获取下一个文件

fileNa = dirLoop

End Sub

```

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

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