Excel 提取 Word中的数据到Excel表格中

Sub importfromword()
     
    Dim w As Object, i As Long, doc As Object
     
    '创建一个word的Application对象，由w代表
    Set w = CreateObject("word.application")
    
    
    '循环打开使用数字命名的各个word文档，由doc代表
    For i = 1 To 8
        Set doc = w.documents.Open("D:\测试数据\" & i & ".docx")
        
       '将该文档的文字内容写入到EXCEL工作表第i行
       Cells(i, 1) = doc.Range.Text
       
       '关闭该文档
       doc.Close
       
    '循环打开下一个文档
    Next i
       
    '关闭word（如此句未执行，则winword.exe始终存在w.quit于内存中，因为再次打开word文档时候，可能发生错误）
    w.Quit
  
End Sub