Уважаемые форумчане помогите пожалуйста появилась необходимость помимо сохранения документа в doc формате так же в Pdf формате и я добавил 2 строки

        .SaveAs "D:\Documents\Doc1.doc"
        pdf_n = "D:\Documents\Doc1.pdf"
        ActiveDocument.ExportAsFixedFormat pdf_n, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument
End With
    app.Quit 

но если раньше выполнять процедуру можно было несколько раз то теперь на втором выполнении выдает ошибку
"the remote server machine does not exist or is unavailable" на этой строчке

ActiveDocument.ExportAsFixedFormat pdf_n, wdExportFormatPDF, False, wdExportOptimizeForPrint, wdExportAllDocument

что надо дописать ????
А если не закрывать приложение app.Quit то ошибка не выходит Помогите пожалуйста Благодарю

http://www.sql.ru/forum/1072139/word-pdf