同一目录下有很多文件夹,文件夹里面有word文档,如何批量把所有在统一文件夹下的word文合并成一个

Question

同一目录下有很多文件夹,文件夹里面有word文档,如何在目录下面运行程序批量把所有在同一文件夹下的word文合并成一个文件

Answer 1

合并文档可以将多个文档快速合成为一个，它是Word提供的一个崭新功能，其使用方法是：打开合并前的源文档，单击“工具”菜单中的“比较并合并文档”命令。

在对话框中找到要合并的目标文档，单击“合并”旁边的下拉按钮，可以在菜单中选择即将执行的操作。假如您要在原始文档中显示比较结果，可以单击“合并”命令；若要在当前打开的文档中显示比较结果，应当单击“合并到当前文档”命令；要想在新文档中显示比较结果，就要选择“合并到新文档”命令。

追问

我有很大文件，要批量合并

追答

1、新建一个WORD文档，命名后保存到和要合并的1000多篇文档一个文件夹里。
2、摁ALT+F11进入宏编辑器。
3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下：

Sub 合并文档()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & "\" & "*.doc")
i = 0
Do While MyName ""
If MyName ActiveDocument.Name Then
Set wb = Documents.Open(MyPath & "\" & MyName)
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.Paste
i = i + 1
wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub

追问

不的行。这个是必须要在统一个文件夹下面。才能用

追答

你都复制到一个文件夹里不行吗？要是不在同一个文件夹根本实现不了啊

Answer 2

试试这个，可能对你的需要有参考价值。