Запуск Word из Access - второй раз не работает

При запуске Word из формы в Access я делаю так:

   Dim wordApp As Word.Application
   Dim wordDoc As Word.Document
   Dim wordRange As Word.Range

   Set wordApp = CreateObject("Word.Application")

   wordApp.Visible = True
   Set wordDoc = wordApp.Documents.Open(etikettenTemplate)

   ' fill in some bookmarks in the word doc

   Set wordApp = Nothing
   Set wordDoc = Nothing
   Set wordRange = Nothing

Проблема в том, что это работает нормально при первом запуске кода. Во второй раз я получаю ошибку выполнения 462: компьютер удаленного сервера не существует или недоступен.

Проблема в том, что я не могу контролировать весь цикл, так как пользователю может потребоваться отредактировать слово doc перед закрытием. Я делаю что-то неправильно? Спасибо за любое предложение


person transient_loop    schedule 07.10.2009    source источник
comment
Проблема может возникнуть и с другими приложениями Office.   -  person Philippe Grondier    schedule 08.10.2009


Ответы (1)


Извините, удалось решить проблему самостоятельно.

Ошибка заключалась в том, что я обращался к закладкам документа через

ActiveDocument.Bookmarks(mybookmark).Range

вместо ранее выбранной переменной wordDoc

Изменив все вхождения ActiveDocument на wordDoc, проблема исчезла.

Спасибо всем в любом случае

person transient_loop    schedule 07.10.2009