Завершение работы MS Word проводится очень легко. Если вы его запускали сами, то необходим просто вызвать метод Quit. Если же вы его не запускали программно, то тогда необходимо будет найти на него ссылку посредством приказа GetObject
'объектная переменная, ссылающаяся на Word существует - Word 'выдаст запорс на сохранение результатов.
myWord.Quit wdPromptToSaveChanges
'Word запущен, но не из программы. Переменная не определена - Word
'сохранит все изменения без запроса.
Dim myWord As Word.Application
Set myWord = GetObject(, "Word.Application")
myWord.Quit wdSaveChanges
| 
