Запуск Word из Access - 2-й раз не получается - PullRequest
1 голос
/ 07 октября 2009

При запуске 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 перед закрытием. Я делаю что-то неправильно? Спасибо за любое предложение

1 Ответ

1 голос
/ 08 октября 2009

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

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

ActiveDocument.Bookmarks (mybookmark) .Range

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

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

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

...