Document.ActiveWindow (Word)

Returns a Window object that represents the active window (the window with the focus).

If there are no windows open, using the ActiveWindow property generates an error occurs.

Sub WindowCaption() 
 MsgBox ActiveDocument.ActiveWindow.Caption 
End Sub