VBA在Excel中从一个Word文档复制到另一个文档

Sub CopyWordDocument()
    Dim wordApp As Object
    Dim sourceDoc As Object
    Dim targetDoc As Object
    
    ' 创建一个Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开源文档
    Set sourceDoc = wordApp.Documents.Open("C:\path\to\source.docx")
    
    ' 打开目标文档
    Set targetDoc = wordApp.Documents.Open("C:\path\to\target.docx")
    
    ' 复制源文档的内容到目标文档
    sourceDoc.Content.Copy
    targetDoc.Content.Paste
    
    ' 关闭并保存目标文档
    targetDoc.Close SaveChanges:=True
    
    ' 关闭源文档
    sourceDoc.Close
    
    ' 退出Word应用程序
    wordApp.Quit
    
    ' 释放对象变量
    Set sourceDoc = Nothing
    Set targetDoc = Nothing
    Set wordApp = Nothing
End Sub