ActivePageWindow Property Example

The following example returns the ActivePageWindow object for the Application object.

Private Sub GetActivePageWindow()
Dim myPageWindow As PageWindow

Set myPageWindow = ActivePageWindow
End Sub

The following example returns the ActivePageWindow object from within the WebWindow object.

Private Sub GetActivePageWindow()
Dim myPage As PageWindow

Set myPage = ActiveWebWindow.ActivePageWindow
End Sub