Returns an FPHTMLWindow2 object that represents the parent window of the current document.
expression.parentWindow
expression Required. An expression that returns a DispFPHTMLDocument object.
The following example displays the name of the current document's parent window if it exists. If the name property is not specified, a message is displayed to the user.
Sub ReturnParent()
'Returns the parent window of the active document
Dim objApp As FrontPage.Application
Dim objDoc As DispFPHTMLDocument
Dim wdwParent As FPHTMLWindow2
Set objApp = FrontPage.Application
Set objDoc = objApp.ActiveDocument
'Create reference to active document's parent window
Set wdwParent = objDoc.parentWindow
'If parent's name exists
If Not wdwParent.Name = "" Then
'Display names to user
MsgBox objDoc.nameProp & "'s parent window is " _
& wdwParent.Name & "."
Else
'Display message to user
MsgBox objDoc.nameProp & _
"'s parent window does not have a name or does not exist."
End If
End Sub