VBA是否将word文档中表格中的文本复制到excel？

Sub CopyTableTextToExcel()
    Dim wdApp As Object ' Word应用程序对象
    Dim wdDoc As Object ' Word文档对象
    Dim wdTable As Object ' Word表格对象
    Dim xlApp As Object ' Excel应用程序对象
    Dim xlWorkbook As Object ' Excel工作簿对象
    Dim xlWorksheet As Object ' Excel工作表对象
    Dim i As Integer ' 行索引
    Dim j As Integer ' 列索引
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    ' 获取第一个表格对象
    Set wdTable = wdDoc.Tables(1)
    
    ' 创建Excel应用程序对象
    Set xlApp = CreateObject("Excel.Application")
    ' 创建新的Excel工作簿
    Set xlWorkbook = xlApp.Workbooks.Add
    ' 获取第一个工作表对象
    Set xlWorksheet = xlWorkbook.Worksheets(1)
    
    ' 复制表格中的文本到Excel
    For i = 1 To wdTable.Rows.Count
        For j = 1 To wdTable.Columns.Count
            xlWorksheet.Cells(i, j).Value = wdTable.Cell(i, j).Range.Text
        Next j
    Next i
    
    ' 保存Excel工作簿
    xlWorkbook.SaveAs "C:\Path\To\Your\Excel\Workbook.xlsx"
    
    ' 关闭并退出Excel应用程序
    xlWorkbook.Close
    xlApp.Quit
    
    ' 释放对象
    Set xlWorksheet = Nothing
    Set xlWorkbook = Nothing
    Set xlApp = Nothing
    Set wdTable = Nothing
    wdDoc.Close SaveChanges:=False
    wdApp.Quit
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub