Помогите решить задачку с Word-ом. - VB

Формулировка задачи:

Есть программа, которая выводит некоторые данные в Word. После использования документа Word (распечатка и/или редактирование) мы его закрываем. Программа всё это время висела (я её не выгружаю из памяти), поработав немного с программой, скомбинировав несколько данных, вывожу опять в Word, но при повторном открытии Word-а, без перезагрузки программы, выскакивает ошибка - типа я пытаюсь ещё раз открыть активный документ!!!!! В чём может быть проблема??? Как коректно завершить работу с Word не закрывая его, после вывода данных из программы????

Решение задачи: «Помогите решить задачку с Word-ом.»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim WordApp As Word.Application
Dim DocWord As Word.Document
 
Private Sub Command5_Click()
''''***Инициализация, установка полей в Word***
if WordApp is nothing then
Set WordApp = New Word.Application
WordApp.Visible = True
Set DocWord = WordApp.Documents.Add
...
end if
DocWord.Activate
...