写一个word 多个文档合并成一个文档VBA程序，文档里有图片，表单，等

好的，我可以为您提供一个基本的 VBA 程序，用于将多个 Word 文档合并成一个文档，并且可以保留文档中的图片和表单等内容。请按照以下步骤操作：

1. 首先，打开您要合并的 Word 文档，然后按下 ALT + F11 打开 VBA 编辑器。

2. 在 VBA 编辑器中，单击“插入”菜单，然后选择“模块”。

3. 在新建的模块中，复制并粘贴以下代码：

Sub MergeDocs()
    Dim Doc As Document, SrcDoc As Document
    Dim Sel As Selection
    Dim fileDlg As FileDialog
    Dim strFile As String
    Dim i As Integer
    
    Set fileDlg = Application.FileDialog(msoFileDialogFilePicker)
    fileDlg.AllowMultiSelect = True
    fileDlg.Title = "Select the Files to Merge"
    
    If fileDlg.Show = -1 Then
        Set Doc = Documents.Add
        Set Sel = Selection
        
        For i = 1 To fileDlg.SelectedItems.Count
            strFile = fileDlg.SelectedItems(i)
            
            Set SrcDoc = Documents.Open(strFile)
            
            'Copy the content of the source document to the end of the destination document
            SrcDoc.Content.Copy
            Sel.EndKey Unit:=wdStory
            Sel.Paste
            
            SrcDoc.Close SaveChanges:=False
        Next i
    End If
End Sub

4. 关闭 VBA 编辑器，然后按下 ALT + F8 打开宏对话框。

5. 选择“MergeDocs”宏，并单击“运行”。

6. 在弹出的文件选择框中，选择要合并的 Word 文档。您可以选择多个文档进行合并。

7. 程序将在新建的 Word 文档中合并所选文档的内容。此时，您可以在新文档中查看合并后的内容，包括图片、表单等。

请注意，此程序只是一个基本的示例，您可能需要对其进行修改以适应您的具体需求。例如，您可以添加更多的代码以控制如何合并文档中的章节、样式等内容。