3 VBA读取word到excel中

案例：

option explicit

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("E:\公司\数据分析\聊天记录\聊天记录\" & i & ".docx")
    
   将该文档的文字内容写入到EXCEL工作表dii行
   
   
   cells(i,1)-doc.range.text
   关闭该文档
   
   doc.close
   
   next i
   
   ‘关闭word（如此句未执行，则winword.exe始终存在w.quit于内存中，因为再次打开word文档时候，可能发生错误）
   
   w.quit
  
  end sub