将粘贴表格从Excel复制到word，但仅使用Excel VBA

Sub CopyTableToWord()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdRange As Object
    
    ' 创建一个新的Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    
    ' 打开一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 将Excel中的表格复制到Word文档中
    ThisWorkbook.Sheets("Sheet1").Range("A1:D10").Copy
    
    ' 将剪贴板中的内容粘贴到Word文档中
    wdDoc.Range.Paste
    
    ' 保存Word文档
    wdDoc.SaveAs "C:\Path\To\Your\Word\File.docx"
    
    ' 关闭Word文档
    wdDoc.Close
    
    ' 退出Word应用程序
    wdApp.Quit
    
    ' 释放对象变量
    Set wdRange = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub