Application.ActiveWindow (Word)

Renvoie un objet Window qui représente la fenêtre active (celle qui a le focus).

Sub WindowCaption() 
 MsgBox ActiveWindow.Caption 
End Sub