Document.ActiveWindow Property (Word)
Returns a Window object that represents the active window (the window with the focus). Read-only.
This example displays the caption text for the active window.
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.