写一个word 多个文档合并成到此文档VBA程序，文档格式有doc docx，文档里内容有图片，表单，等

好的，这是一个比较复杂的 VBA 任务，需要用到 Word 的对象模型和一些文件操作函数。以下是一个示例代码，可以将多个文档的内容合并到当前文档中：

Sub MergeDocsToThisDoc()
    Dim doc As Document
    Dim filename As String
    
    ' 遍历当前目录下的所有 doc 和 docx 文件
    filename = Dir(ThisDocument.Path & "\*.doc*")
    Do Until filename = ""
        ' 打开当前文件
        Set doc = Documents.Open(ThisDocument.Path & "\" & filename)
        
        ' 将当前文件的内容复制到当前文档
        doc.Content.Copy
        Selection.Collapse wdCollapseEnd
        Selection.PasteAndFormat wdPasteDefault
        
        ' 关闭当前文件
        doc.Close False
        
        ' 继续遍历下一个文件
        filename = Dir()
    Loop
    
    ' 提示合并完成
    MsgBox "合并完成！"
End Sub

这段代码会遍历当前目录下的所有 doc 和 docx 文件，将它们的内容复制到当前文档的末尾，并关闭源文件。你可以根据实际需要修改文件路径和文件格式等参数。注意，如果你的文档中还包含表单等特殊内容，可能需要对代码进行一些修改。