访问 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