2016EXCELVBA提取word信息

可以使用VBA代码通过Microsoft Word对象模型来提取Word文档中的信息。下面是一个简单的示例，演示如何提取Word文档中的文字内容并将其输出到Excel表格中：

Sub ExtractWordContent()
    Dim wdApp As Object 'Word.Application
    Dim wdDoc As Object 'Word.Document
    Dim rng As Object 'Word.Range
    Dim i As Long
    Dim j As Long
    
    '创建Word对象
    Set wdApp = CreateObject("Word.Application")
    '打开Word文档
    Set wdDoc = wdApp.Documents.Open("C:\Path\To\Your\Word\File.docx")
    '设置Range对象，指定要提取的文本范围
    Set rng = wdDoc.Range
    
    '遍历Range对象，提取文本内容
    For i = 1 To rng.Paragraphs.Count
        For j = 1 To rng.Paragraphs(i).Range.Words.Count
            '输出到Excel表格中
            Cells(i, j).Value = rng.Paragraphs(i).Range.Words(j)
        Next j
    Next i
    
    '关闭Word文档和对象
    wdDoc.Close
    wdApp.Quit
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

请注意，在运行此代码之前，您需要添加对Microsoft Word对象库的引用。方法是打开VBA编辑器，选择“工具”->“引用”，然后勾选“Microsoft Word XX.X Object Library”。

希望这可以帮助您开始提取Word信息！