ActiveWindow Property

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