☰

在Office 365 Word中，如何按顺序将多个word文件合并为一个？

tag-icon • tag-icon microsoft-word pdf microsoft-office merge
在Office 365 Word中，如何按顺序将多个word文件合并为一个？

我想将大约 500 个 word 文档合并为一个。每个文档长 2 页，其名称为三位数，并且按顺序排列：例如，文档 001 在 006 之前，甚至 003 至 005 都不存在。

我曾想过把每个文档导出为pdf，然后合并成一个。但由于工作限制，我无论如何都无法使用互联网。

还，正如这篇文章所问我需要每个文档都从新的一页开始，而不是在上一页结束后立即开始。

就这样，谢谢！

答案1

可以使用上面链接的帖子通过以下简单代码完成此操作：

Sub OpenMultipleFiles()
Dim fDialog As FileDialog

Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = True
.InitialView = msoFileDialogViewList
If .Show <> -1 Then
MsgBox "Cancelled By User", , "Cancelled"
Exit Sub
End If
End With
For i = 1 To fDialog.SelectedItems.Count
Selection.InsertFile fDialog.SelectedItems.Item(i)
Selection.InsertBreak Type:=wdPageBreak

Next i
End Sub

您只需打开一个空白的 Word 文档，设置要合并的文档使用的边距，然后打开 VAB 并执行代码。

相关内容