如何使用VBA将Word文档中的表格转换为Excel工作簿？

在VBA（Visual Basic for Applications）中，你可以通过创建一个宏来自动化这个过程，将Word文档中的表格转换为Excel工作簿。以下是一个简单的步骤：

1. **打开VBA编辑器**：在Word中按下`Alt + F11`组合键，进入VBA编辑器。

2. **插入模块**：在VBA主窗口中，选择“插入” > “模块”，然后你会看到一个新的空白代码窗口。

3. **编写代码**：

Sub ConvertTableToExcel()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim excelApp As Excel.Application
    Dim excelWorkbook As Excel.Workbook
    Dim rng As Range
    
    ' 创建Word应用实例
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.Documents.Open("你的Word文件路径")
    
    ' 检查文档是否包含表格
    On Error Resume Next
    Set rng = wdDoc.Tables(1) ' 如果有多张表格，可以修改这里为特定编号或范围
    If Not rng Is Nothing Then
        ' 创建Excel应用实例
        Set excelApp = CreateObject("Excel.Application")
        
        ' 新建Excel工作簿
        Set excelWorkbook = excelApp.Workbooks.Add
        
        ' 将表格复制到Excel
        rng.Copy
        With excelWorkbook.Sheets(1)
            .PasteExcelTable Link:=True, TableDestination:=.Cells(1, 1), DataType:=xlDelimited, _
                         Identifier:=False, HeaderRowRange:=Nothing, _
                         MergeCells:=False, Local:=True
        End With
        
        ' 保存并关闭Excel工作簿
        excelWorkbook.SaveAs "你的目标Excel文件路径.xlsx"
        excelWorkbook.Close SaveChanges:=True
        
        ' 关闭Word文档和应用程序
        wdDoc.Close False
        wdApp.Quit
    Else
        MsgBox "文档中未找到表格。", vbInformation
    End If
End Sub

4. **替换路径**：在代码中，将`"你的Word文件路径"` 和 `"你的目标Excel文件路径"` 替换为你实际的文件路径。

5. **运行宏**：按 `F5` 或者点击工具栏上的 "运行" 按钮，开始转换过程。