无法访问MSWord ActiveDocument

时间:2008-12-16 20:31:31

标签: vba ms-word word-vba

当我尝试以编程方式访问Word对象模型时,出现错误,指出没有文档处于活动状态。这似乎是因为我使用Word自动化加载文档是不可见的,我必须保持它不可见。

如何对开放宏进行编码,以便在这种情况下不执行任何操作?

If Not ActiveDocument is Nothing Then

没用。

Private Sub Document_Open()

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

End Sub

2 个答案:

答案 0 :(得分:1)

您可以记住打开的文档(某些原理图代码),而不是使用ActiveDocument:

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

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

答案 1 :(得分:0)

If Documents.Count > 0 Then