Document.ActiveWindow (Word)

Devuelve un objeto Window que representa la ventana activa (la ventana con el foco).

Se produce si hay una ventana abierta, utilizando la propiedad ActiveWindow genera un error.

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