| 投稿日 | ： 2004/06/30(Wed) 17:11 |
| 投稿者 | ： るしぇ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: Wordの終了について |
ごくごく単純に…
Public Function EndWord()
'wdApp.Quit '←これにするとすべてが閉じる （どちらかをコメントでやってください）
wdDoc.Close '←これにするとWordの抜け殻が残る（どちらかをコメントでやってください）
With wdApp
If .Documents.Count = 0 Then
.Quit
End If
End With
Set wdDoc = Nothing
Set wdApp = Nothing
End Function