使用数组元素引用Word文档表中的单元格的VBA Excel

Sub ReferenceWordTableCell()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    Dim wdCell As Object
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 获取第一个表格
    Set wdTable = wdDoc.Tables(1)
    
    ' 引用表格中的单元格
    Set wdCell = wdTable.Cell(1, 1)
    
    ' 在Excel中显示单元格的内容
    MsgBox wdCell.Range.Text
    
    ' 关闭Word文档
    wdDoc.Close
    
    ' 退出Word应用程序
    wdApp.Quit
    
    ' 释放对象
    Set wdCell = Nothing
    Set wdTable = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub