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