ActiveWebWindow Property Example

This example prints the value of the ActiveDocument.nameProp property for the ActiveWebWindow object.

Note   To run this example, create a form with a command button called cmdActiveWebWindowDisplay and a label called lblWebWindowDisplay. Paste the following code in the code window. You must have a FrontPage-based web page open for this procedure to return a document name.

Private Sub cmdActiveWebWindowDisplay_Click()
On Error Resume Next
Dim myCurrentWebWindow As WebWindow

Set myCurrentWebWindow = Application.ActiveWebWindow

With myCurrentWebWindow
    lblWebWindowDisplay.Caption = .ActiveDocument.nameProp
End With
End Sub