使用VBA将Word表格每行/每列的第一行文本导入Excel

VBA（Visual Basic for Applications）是一种用于Microsoft Office应用程序的编程语言，可以通过编写宏来自动执行任务和操作应用程序的功能。

要使用VBA将Word表格每行/每列的第一行文本导入Excel，可以按照以下步骤进行操作：

打开Word文档并选择要导入的表格。
打开VBA编辑器，在Word中按下Alt + F11，或者在“开发”选项卡中点击“宏”按钮，然后选择“Visual Basic”。
在VBA编辑器中，插入一个新的模块。在“插入”菜单中选择“模块”。
在新的模块中编写以下VBA代码：

Sub 导入表格文本至Excel()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelApp As Object
    Dim excelWorkbook As Object
    Dim excelWorksheet As Object
    Dim table As Object
    Dim i As Integer
    
    ' 创建Word应用程序对象
    Set wordApp = CreateObject("Word.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("Word文档路径")
    
    ' 创建Excel应用程序对象
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开Excel工作簿
    Set excelWorkbook = excelApp.Workbooks.Open("Excel工作簿路径")
    
    ' 选择或创建Excel工作表
    Set excelWorksheet = excelWorkbook.Sheets("工作表名称")
    
    ' 获取选定的表格对象
    Set table = wordDoc.Tables(1) '假设要导入的表格是Word文档中的第一个表格
    
    ' 循环遍历表格行/列并将第一行文本导入Excel
    For i = 1 To table.Columns.Count '以每列第一行为例，如需导入每行第一列的文本，将Columns改为Rows
        excelWorksheet.Cells(i, 1).Value = table.Cell(1, i).Range.Text
    Next i
    
    ' 保存并关闭Excel工作簿
    excelWorkbook.Save
    excelWorkbook.Close
    
    ' 退出Excel应用程序
    excelApp.Quit
    
    ' 释放对象变量
    Set excelWorksheet = Nothing
    Set excelWorkbook = Nothing
    Set excelApp = Nothing
    Set table = Nothing
    
    ' 保存并关闭Word文档
    wordDoc.Save
    wordDoc.Close
    
    ' 退出Word应用程序
    wordApp.Quit
    
    ' 释放对象变量
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub