Document.ActiveWindow (Word)

Retorna um objeto Window que representa a janela ativa a janela com o foco. Somente leitura.

Se não houver janelas abertas, usando a propriedade ActiveWindow gerará um erro ocorre.

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