請教如何CLOSE WORD

198188

1. Public Function T_S_Cvt(strData, bytOption) As String
   
2. With wrdApp
   
3. .Content = strData
   
4.   .Range.TCSCConverter bytOption, True, True
   
5. T_S_Cvt = .Content
   
6. End With
   
7. End Function

複製代碼

這個VBA會產生一個WORD檔，請問如何完成後自動close word 檔，以及自己選擇不儲存

GBKEE

回復 1# 198188

1. With CreateObject("Word.Application")
   
2.     .Visible = True
   
3.     .Quit  
   
4. End With

複製代碼