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