Application.ActiveWindow (Word)

Devuelve un objeto Window que representa la ventana activa (la ventana con el foco).

Sub WindowCaption() 
 MsgBox ActiveWindow.Caption 
End Sub