Returns a Window object that represents the active window (the window with the focus). If there are no windows open, an error occurs. Read-only.
Example
This example displays the caption text for the active window.
Sub WindowCaption()
MsgBox ActiveDocument.ActiveWindow.Caption
End Sub
This example opens a new window for the active window of the active document and then tiles all the windows.
Sub WindowTiled()
Dim wndTileWindow As Window
Set wndTileWindow = ActiveDocument.ActiveWindow.NewWindow
Windows.Arrange ArrangeStyle:=wdTiled
End Sub
This example splits the first document window.
Sub WindowSplit()
Documents(1).ActiveWindow.Split = True
End Sub