WebWindows Collection

Multiple objects WebWindows WebWindow Multiple objects

A collection of WebWindowEx objects. Each WebWindow object represents an open Web site in Microsoft FrontPage. The WebWindowEx object is a member of the WebWindows collection.

Using the WebWindows Collection

Use Items(index), where index is the index number of an item in the WebWindows collection, to return a single WebWindowEx object. The following example returns the Caption property for the fourth item in the WebWindows collection.

Function ReturnWebWindowCaption() As String
    Dim myCaption As String
    Dim myWebWindow As WebWindowEx

    Set myWebWindow = Application.WebWindows(3)
    myCaption = myWebWindow.Caption
    ReturnWebWindowCaption = myCaption
End Sub
		

Use the WebWindows property to return the WebWindows collection. The following example closes all of the open WebWindowEx objects in the WebWindows collection except the ActiveWebWindow object.

Private Sub CloseWebWindows
    Dim myWebWindows As WebWindows
    Dim myWebWindow As WebWindowEx
    Dim myActiveWebWindow As WebWindowEx

    Set myWebWindows = Application.WebWindows
    Set myActiveWebWindow = ActiveWebWindow

    For Each myWebWindow In myWebWindows
        If myWebWindow.Caption <> myActiveWebWindow.Caption Then _
            myWebWindow.Close
    Next
End Sub
		

Use the Application property to return the Application object. If you're already working with the WebWindows collection and you'd like to check the version number of the application, you can easily access it through your With myWebWindows statement as shown in the following example.

With myWebWindows
    myWebWindowCount = myWebWindows.Count
    myAppVersion = .Application.Version
    If myAppVersion < "4.0" Then
        MsgBox "Please upgrade your FrontPage software."
    Else
        For Each myWebWindow In myWebWindows
            myCaption = myWebWindow.Caption
            With myPageWindows
                myPageCount = PageWindows.Count
            End With
        Next
    End If
End With
		

You can use the Close method to close an individual WebWindowEx object, multiple WebWindowEx objects, or all WebWindowEx objects in FrontPage. For more details on the Close method, see the usage described in the following table.

Important  FrontPage will close the application if you use the Close method to close all WebWindowEx objects in FrontPage.

Application.WebWindows(index).Close
					

or
Application.WebWindows.Close(index)
					

For Each myWebWindow In myWebWindows
					

   If myWebWindow.Caption <> _
        myActiveWebWindow.Caption Then _
        myWebWindow.Close
Next
					

Application.WebWindows.Close
					

Webs(index).WebWindows(index).Close
					

Set myWeb = Web(index).WebWindows
					

For Each myWebWindow In myWebWindows
    If myWebWindow.Caption _
      <> myActiveWebWindow.Caption Then _
        myWebWindow.Close
Next
					

Webs(index).WebWindows.Close
					

Use the Count property to return the number of WebWindowEx objects in the collection. The following example returns the number of WebWindowEx objects.

Web.WebWindows.Count
		

Use the Parent property when you want to return the container for the WebWindows collection. The following statement returns the Application object.

Application.WebWindows.Parent.Name