写一段excel代码抓取word里面的数据

下面是一段VBA代码，用于从Word文档中抓取数据并将其写入Excel工作表中：

Sub 抓取数据()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim wdTable As Object
    Dim i As Integer, j As Integer
    
    ' 创建Word应用程序对象
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = False ' 将Word应用程序设为不可见
    
    ' 打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\路径\至\你的Word文档.docx")
    
    ' 指定要抓取的表格
    Set wdTable = wdDoc.Tables(1)
    
    ' 循环遍历表格中的每个单元格，并将数据写入Excel工作表
    For i = 1 To wdTable.Rows.Count
        For j = 1 To wdTable.Columns.Count
            ' 将单元格内容写入Excel工作表的对应位置
            Worksheets("Sheet1").Cells(i, j).Value = wdTable.Cell(i, j).Range.Text
        Next j
    Next i
    
    ' 关闭Word文档
    wdDoc.Close
    
    ' 退出Word应用程序
    wdApp.Quit
    
    ' 释放对象变量
    Set wdTable = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
    
    MsgBox "数据抓取完成！"
End Sub

请将代码中的"C:\路径\至\你的Word文档.docx"替换为你要抓取数据的Word文档的路径。抓取的数据将被写入Excel工作表的"Sheet1"中。你可以根据需要修改工作表的名称