Application.ActiveWindow (Word)

Gibt ein Window -Objekt zurück, das das aktive Fenster (das Fenster mit dem Fokus) darstellt.

Sub WindowCaption() 
 MsgBox ActiveWindow.Caption 
End Sub