Document.ActiveWindow (Word)

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

S'il n'y a aucune fenêtre ouverte, à l'aide de la propriété ActiveWindow génère une erreur se produit.

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