The Active property returns whether a window is active (that is, currently in use). If the window is active, a value of True is returned.
Examples:
The following VBA example displays the caption for the active window.
Sub Test()
Dim Wnd As Window
For Each Wnd In ActiveDocument.Windows
If Wnd.Active = 1 Then
MsgBox Wnd.Caption & " is the active window."
End If
Next Wnd
End Sub