提取word数据至excel的vb代码

提取word数据至excel的VB代码示例如下：

Sub ExtractDataFromWord()
    Dim wordApp As Object
    Dim wordDoc As Object
    Dim excelApp As Object
    Dim excelWB As Object
    Dim excelWS As Object
    Dim rowIndex As Integer
    Dim columnIndex As Integer
    
    ' 创建Word和Excel对象
    Set wordApp = CreateObject("Word.Application")
    Set excelApp = CreateObject("Excel.Application")
    
    ' 打开Word文档
    Set wordDoc = wordApp.Documents.Open("C:\路径\文件名.docx")
    
    ' 创建一个新的Excel工作簿并设置活动工作表
    Set excelWB = excelApp.Workbooks.Add
    Set excelWS = excelWB.Sheets(1)
    
    ' 设置开始提取数据的行和列索引
    rowIndex = 1
    columnIndex = 1
    
    ' 循环遍历Word文档的段落，提取数据并写入Excel表格
    For Each paragraph In wordDoc.Paragraphs
        ' 判断段落是否包含需要提取的数据（根据具体的需求进行判断）
        If paragraph.Range.Text Like "*需要提取的数据*" Then
            ' 提取数据并写入Excel表格
            excelWS.Cells(rowIndex, columnIndex).Value = Trim(paragraph.Range.Text)
            
            ' 更新行索引
            rowIndex = rowIndex + 1
        End If
    Next paragraph
    
    ' 保存并关闭Excel工作簿
    excelWB.SaveAs "C:\路径\输出文件名.xlsx"
    excelWB.Close
    
    ' 关闭Word和Excel应用程序
    wordApp.Quit
    excelApp.Quit
    
    ' 释放对象的内存
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Set excelWS = Nothing
    Set excelWB = Nothing
    Set excelApp = Nothing
End Sub

以上代码示例是使用VB编写的一段宏代码，通过创建Word和Excel对象，打开Word文档，创建一个新的Excel工作簿并设置活动工作表，循环遍历Word文档的段落，提取指定数据并写入Excel表格，最后保存并关闭Excel工作簿，关闭Word和Excel应用程序，并释放相关对象的内存。请注意，代码中的文件路径和文件名需要根据实际情况进行修改。