案例：

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