Ошибка при экспорте данных в Word

[julius]

Добрый день.
Пишу программу для экспорта данных из екселя в ворд.
Вот фрагмент кода из экселя

Dim AppWord As Word.Application 
Set AppWord = CreateObject("Word.Application")

AppWord.Documents.Open Filename:="G:\VB\Шаблон.docx"

Sheets("Итоговая таблица").Range(Sheets("Итоговая таблица").Cells(1, 1), Sheets("Итоговая таблица").Cells(13, 8)).Copy
AppWord.ActiveDocument.Paragraphs(76).Range.Paste
    
    With AppWord.ActiveDocument.Tables(2)
        
        .Rows.Alignment = wdAlignRowCenter
        .AutoFitBehavior (wdAutoFitContent) 
    
        For i = 1 To 11
             .Rows(2 + i).HeightRule = wdRowHeightExactly
             .Rows(2 + i).Height = CentimetersToPoints(1)
        Next i

    End With

AppWord.ActiveDocument.SaveAs Filename:="G:\VB\Presentation_2.docx"
AppWord.ActiveDocument.Close
AppWord.Quit
Set AppWord = Nothing

При запуске программы в первый раз все работает хорошо. Если после этого запустить ее вновь, то выдает ошибку the remote server machine does not exist or is unavailable. Ошибка в строке .Rows(2 + i).Height = CentimetersToPoints(1).
При этом в диспетчере задач остается висеть приложение Word, которое необходимо закрыть вручную. После этого программа работает один раз, а дальше все повторяется заново.
На форумах писали, что нужно очистить переменную, в которой хранится приложение:

AppWord.ActiveDocument.Close
AppWord.Quit
Set AppWord = Nothing

Но не помагает.
Подскажите, кто знает. Заранее спасибо