excel vba 批量提取WORD 数据 代码

Excel VBA (Visual Basic for Applications) 提供了一种方法，通过宏来自动化与Word的交互，批量提取数据。以下是一个简单的例子，展示了如何使用VBA从Word文档中读取数据：

Sub ExtractDataFromWord()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim rng As Range
    Dim data As Variant

    ' 创建Word应用实例并打开文档
    Set wdApp = New Word.Application
    wdApp.Visible = False ' 隐藏Word窗口（如果不需要看到的话）
    
    ' 指定Word文档路径
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Document.docx")
    
    ' 确定需要提取数据的范围，例如表格或文本
    Set rng = wdDoc.Content.Range ' 这里假设整个文档内容作为范围
    data = rng.Text ' 将文本转换为数组或二维数组
    
    ' 处理提取的数据
    ' ...

    ' 关闭Word文档和释放资源
    wdDoc.Close SaveChanges:=False
    wdApp.Quit
    
    ' 清理内存
    Set rng = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
    
End Sub

在这个示例中，你需要将`"C:\Path\To\Your\Document.docx"`替换为实际的Word文档路径。完成数据提取后，你可以对`data`变量进行进一步处理。