WD2000: ActiveWindow.Visible Property Causes Word to Appear to Stop Responding (220419)

Sub HideDoc()
    Documents.Add                              ' Add new document.
    ActiveWindow.Visible = False               ' Hide document.
    Selection.TypeText "This is a document."   ' Insert text.
    ActiveWindow.Visible = True                ' Show document.
End Sub
				

RESOLUTION

To work around the problem of Word appearing to stop responding, start another instance of Word. You can then perform further actions in Word.

To resolve the problem of setting the Visible property of the ActiveWindow, causing Word to appear to stop responding, use one of the following sample procedures as a substitute:

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.

Sub HideDoc1()
    Dim oDoc As Document
    Set oDoc = Documents.Add                      ' Create new document.
    With oDoc.ActiveWindow
        .Visible = False                          ' Hide the document.
        .Selection.TypeText "This is a document." ' Insert text.
        .Visible = True                           ' Show the document.
    End With
End Sub
				

-or-

Sub HideDoc2()
    Documents.Add                                 ' Create new document.
    With ActiveWindow
        .Visible = False                          ' Hide the document.
        .Selection.TypeText "This is a document." ' Insert text.
        .Visible = True                           ' Show the document.
    End With
End Sub