WD2000: Documents/Windows Collection Fails to Include Hidden Documents

View products that this article applies to.

This article was previously published under Q220504

Expand all | Collapse all

SYMPTOMS

When you use the Visible property of the Open method for the Documents collection to open an existing document as hidden, the document count and the window count are not incremented.

For example, the following Visual Basic for Applications procedure demonstrates this problem:

Sub CountHiddenDocs()
   Documents.Close ' Close ALL open documents.
   Documents.Add   ' Add a new blank document.
   With Application.Documents
      ' Open MyDoc.Doc document as hidden.
      .Open "<Path>\MyDoc.Doc", Visible:=False
      ' Return the number of documents in the Documents collection.
      MsgBox "There are" & .Count & " documents open in Word."
      MsgBox MsgBox "There are " & Windows.Count & _
         " window(s) in the Windows collection."
   End With
End Sub

Running the procedure results in the message box displaying 1 instead of 2 for both the Documents and Windows collection.

Furthermore, you cannot make visible a document you open as hidden using the ActiveWindow.Visible command. Attempting to do so may result in the following error message:

Run-time error '91': Object variable or With block variable not set.

-or-

Run-time error '4248': This command is not available because no documents are opened.

For example, the following Visual Basic for Applications procedure demonstrates the run-time error '91':

Sub CountHiddenDocs()
   Dim Doc As Document
   Dim Doc1 As Document
   Documents.Close ' Close ALL open documents.
   Documents.Add   ' Add a new blank document.
   With Application.Documents
      ' Open MyDoc.Doc document as hidden.
      Set Doc1 = .Open("<Path>\MyDoc.Doc", Visible:=False)
      ' Return the number of documents in the Documents collection.
      MsgBox "There are" & .Count & " documents open in Word."
   End With

   ' Using the Documents collection fails to unhide
   ' hidden documents but does not return an error.
   For Each Doc In Documents
      Doc.ActiveWindow.Visible = True
   Next
   
   ' Using the document object variable fails to unhide the
   ' hidden document and returns the error mentioned earlier
   ' in this article.
   Doc1.ActiveWindow.Visible = True
End Sub

Back to the top

RESOLUTION

To resolve this problem, obtain Microsoft Office 2000 Service Release 1/1a (SR-1/SR-1a).

To obtain SR-1/SR-1a, click the article number below to view the article in the Microsoft Knowledge Base:

245025 (http://support.microsoft.com/kb/245025/EN-US/ ) OFF2000: How to Obtain and Install Microsoft Office 2000 Service Release 1/1a (SR-1/SR-1a)

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. To temporarily work around this problem, you can treat the hidden document, for opening and referencing, as a separate document object. The following Visual Basic for applications procedure demonstrates this work around:

Sub CountHiddenDocs()
   ' This macro opens an existing document as hidden
   ' then makes the hidden document visible.
   Dim Doc1 As Document

   ' Open MyDoc.Doc document as hidden.
   Set Doc1 = Documents.Open("<Path>\MyDoc.Doc", Visible:=False)

   ' Reset the document object variable to make visible the
   ' hidden document.
   '
   ' NOTE: The following command line will NOT open a
   ' second instance of the hidden document but instead
   ' make the currently open, hidden instance of the
   ' document visible.
   Set Doc1 = Documents.Open("<Path>\MyDoc.Doc", Visible:=True)
   Doc1.ActiveWindow.Activate
End Sub

Back to the top

STATUS

Microsoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article. This problem was corrected in Microsoft Office 2000 SR-1/SR-1a.

Back to the top

MORE INFORMATION

For more information about the Documents collection, in the Visual Basic Editor, click Microsoft Visual Basic Help on the Help menu, type Documents collection in the Office Assistant or the Answer Wizard, and then click Search to view the topic.

For more information about how to use the sample code in this article, click the article number below to view the article in the Microsoft Knowledge Base:

212536 (http://support.microsoft.com/kb/212536/EN-US/ ) OFF2000: How to Run Sample Code from Knowledge Base Articles

Back to the top