Application.ActiveWindow (Word)

Returns a Window object that represents the active window (the window with the focus). If there are no windows open, an error occurs.

Sub WindowCaption() 
 MsgBox ActiveWindow.Caption 
End Sub