Returns a Window object that represents the window with the focus. Because Microsoft Publisher only has one window, there is only one Window object to return.
expression.ActiveWindow
expression Required. An expression that returns one of the objects in the Applies To list.
This example displays the active window's caption.
Sub CurrentCaption()
MsgBox ActiveDocument.ActiveWindow.Caption
End Sub