vba excel提取word表格

VBA Excel可以用来提取Word文档中的表格。以下是实现的步骤：

1. 首先，需要引用Microsoft Word对象库。在VBA编辑器的"工具"菜单中选择"引用"，然后勾选"Microsoft Word XX.X对象库"（其中XX.X表示安装的Word版本）。

2. 使用`CreateObject`函数创建一个Word应用程序对象，并打开目标Word文档。

3. 使用`ActiveDocument.Tables`属性来获取Word文档中的所有表格。可以使用循环来遍历这些表格。

4. 使用循环中的索引来访问每个表格的属性和内容。可以使用表格的行和列来读取和写入数据。

5. 可以将表格数据存储在Excel工作簿中，也可以在Excel工作表中创建新的表格，将Word表格的内容复制到Excel中。

6. 最后，关闭Word应用程序对象和打开的文档，释放相关资源。

以下是一个示例代码：

Sub ExtractWordTable()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 创建Word应用程序对象并打开文档
    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\Document.docx")
    
    ' 创建新的Excel工作簿
    Set ws = ThisWorkbook.Worksheets.Add
    
    ' 遍历Word文档中的表格
    For i = 1 To wdDoc.Tables.Count
        Set wdTable = wdDoc.Tables(i)
        
        ' 将表格数据复制到Excel工作表中
        wdTable.Range.Copy
        ws.Cells(1, 1).PasteSpecial
        
        ' 调整表格的格式和大小
        ws.Columns.AutoFit
        ws.Rows.AutoFit
        
        ' 在下一个工作表中创建新的表格
        Set ws = ThisWorkbook.Worksheets.Add
    Next i
    
    ' 关闭Word应用程序对象和打开的文档
    wdDoc.Close
    wdApp.Quit
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

以上是一个基本的示例代码，你可以根据自己的需求进行修改和扩展。希望能对你有所帮助！