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