Проблемы с доступом к MSWord ActiveDocument

Question

Когда я пытаюсь получить программный доступ к объектной модели Word, я получаю сообщение об ошибке, в котором говорится, что документ не активен. Это происходит потому, что я загружаю документ как невидимый с помощью автоматизации Word, и я должен сделать его невидимым.

Как бы я закодировал открытый макрос, чтобы он ничего не делал в этом случае?

If Not ActiveDocument is Nothing Then

не работает.

Private Sub Document_Open()

   If (ActiveDocument.SaveFormat = wdFormatRTF) Then
      'Do some stuff
   End If

End Sub

Answer 1

Вместо использования ActiveDocument вы можете вспомнить открываемый вами документ (некоторый код схемы):

dim word as new Word.Application
dim doc as Word.Document

doc = word.Documents.Open(fileName)
MsgBox doc.FullName

Answer 2

If Documents.Count > 0 Then