Active Property Example

This example activates the first window in the Windows collection, if the window isn't currently active.

If Windows(1).Active = False Then Windows(1).Activate

This example activates line numbering for the first section in the selection.

With Selection.Sections(1).PageSetup.LineNumbering
    .Active = True
    .CountBy = 5
    .StartingNumber = 1
End With

This example splits the active window into two panes and activates the selection in the first pane, if it isn't already active.

ActiveDocument.ActiveWindow.Split = True
If ActiveDocument.ActiveWindow.Panes(1).Selection _
        .Active = False Then
    ActiveDocument.ActiveWindow.Panes(1).Activate
End If