Application.ActiveWindow (Word)

Retorna um objeto Window que representa a janela ativa a janela com o foco. Se houver nenhuma janela aberta, ocorrerá um erro. Somente leitura.

Sub WindowCaption() 
 MsgBox ActiveWindow.Caption 
End Sub