VBA コードを使用して Word 文書に挿入されたテーブル オブジェクトの内容を Excel にコピーする方法

Sub InsertTableInWord()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 如果需要可见Word应用程序，请设置为True
    
    ' 创建一个新的Word文档
    Set wdDoc = wdApp.Documents.Add
    
    ' 插入一个表格
    Set wdTable = wdDoc.Tables.Add(wdDoc.Range, NumRows:=3, NumColumns:=4)
    ' 更改表格的内容和格式
    ' ...
    
    ' 释放对象
    Set wdTable = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

Sub CopyTableFromWordToExcel()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    Dim xlApp As Object
    Dim xlWb As Object
    Dim xlSheet As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 如果需要可见Word应用程序，请设置为True
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    
    ' 获取Word文档中的表格
    Set wdTable = wdDoc.Tables(1) ' 假设表格在文档中的第一个位置
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True ' 如果需要可见Excel应用程序，请设置为True
    
    ' 创建一个新的Excel工作簿
    Set xlWb = xlApp.Workbooks.Add
    ' 在Excel工作簿中创建一个工作表
    Set xlSheet = xlWb.Sheets(1)
    
    ' 将Word表格复制到Excel中
    wdTable.Range.Copy
    xlSheet.Range("A1").PasteSpecial
    
    ' 释放对象
    Set xlSheet = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing
    
    ' 关闭Word文档
    wdDoc.Close False ' False表示不保存更改
    Set wdTable = Nothing
    Set wdDoc = Nothing
    wdApp.Quit
    Set wdApp = Nothing
End Sub