使用 VBA 脚本合并多个Word 文档

9 min read

有几种方法可以将多个 Word 文档（.docx）合并打印：

  1. 手动合并：

    • 打开你的第一个 Word 文档。
    • 点击 "插入" 菜单，然后选择 "对象"，点击 "来自文件" 选项。
    • 在弹出的对话框中，选择你想要合并的第二个 Word 文档，然后点击 "插入"。
    • 这样，你的第二个文档就会被插入到第一个文档的末尾。
    • 你可以重复这个步骤，直到你所有的 Word 文档都被合并。
    • 然后，你可以直接打印这个合并后的 Word 文档。

  2. 使用 VBA 脚本合并：

    • 在 Word 中，按下 "Alt + F11" 键，打开 VBA 编辑器。
    • 在 "插入" 菜单中，选择 "模块"，在新窗口中复制粘贴下面的代码：
Sub MergeDocs()
    Dim rng As Range
    Dim MainDoc As Document, SubDoc As Document
    Dim strFile As String, strFolder As String
    Dim dlgFile As FileDialog
    
    Set dlgFile = Application.FileDialog(FileDialogType:=msoFileDialogFolderPicker)
    
    With dlgFile
        If .Show = -1 Then
            strFolder = .SelectedItems(1)
            strFile = Dir(strFolder & "\*.docx", vbNormal)
            
            While strFile <> ""
                Set SubDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
                Set rng = SubDoc.Content
                rng.Copy
                Set rng = MainDoc.Content
                rng.Collapse Direction:=wdCollapseEnd
                rng.Paste
                SubDoc.Close SaveChanges:=wdDoNotSaveChanges
                strFile = Dir
            Wend
        End If
    End With
End Sub
  • 运行这个脚本，会弹出一个对话框让你选择文件夹。选择包含你所有 Word 文档的文件夹，然后点击 "确定"。脚本将会把文件夹中的所有 Word 文档合并到一起。

以上就是将多个 Word 文档合并打印的方法。记得在打印之前检查合并的文档，以确保所有的内容都按照你的期望被合并。