批量提取word信息到excel

你可以使用VBA宏来自动化这个过程，以下是一个简单的示例：

1. 打开一个新的Excel工作簿，按下Alt + F11进入VBA编辑器。
2. 在VBA编辑器中，选择“插入”→“模块”来创建一个新的模块。
3. 在新的模块中，输入以下代码：

Sub ExtractWordData()
    Dim wrdApp As Object
    Dim wrdDoc As Object
    Dim tbl As Object
    Dim i As Long, j As Long, k As Long
    Dim ws As Worksheet
    
    '创建一个新的Word应用程序对象
    Set wrdApp = CreateObject("Word.Application")
    
    '禁用屏幕更新
    wrdApp.ScreenUpdating = False
    
    '打开Word文档
    Set wrdDoc = wrdApp.Documents.Open("C:\your\file\path\filename.docx")
    
    '找到第一个表格
    Set tbl = wrdDoc.Tables(1)
    
    '将表格数据复制到Excel
    Set ws = ThisWorkbook.Sheets(1)
    k = 1
    For i = 1 To tbl.Rows.Count
        For j = 1 To tbl.Columns.Count
            ws.Cells(k, j).Value = tbl.Cell(i, j).Range.Text
        Next j
        k = k + 1
    Next i
    
    '关闭Word文档和应用程序对象
    wrdDoc.Close
    wrdApp.Quit
    
    '启用屏幕更新
    Application.ScreenUpdating = True
    
    '清空对象变量
    Set wrdDoc = Nothing
    Set wrdApp = Nothing
    Set tbl = Nothing
    Set ws = Nothing
End Sub

4. 将上面代码中的文件路径替换为你要提取数据的Word文档的路径。
5. 在Excel工作簿中，按下Alt + F8来运行宏。宏将自动从Word文档的第一个表格中提取数据到Excel工作表中。

请注意，此示例仅提取第一个表格中的数据。如果你需要提取多个表格的数据，请使用一个循环来遍历所有表格。