' 获取文件夹中第一个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文档合并为一个。