Close 方法

关闭指定的 PageWindowEx 对象。

expression.Close(ForceSave)

expression 必选。返回上述对象之一的表达式。

ForceSave 可选，Boolean 类型。值为 True 时，在 Close 方法完成之前强制保存指定的文件。默认值为 False。

关闭 PageWindows 集合中指定的网页，或者，如果为空，则关闭 PageWindows 集合中所有打开网页。

expression.Close(Index, ForceSave)

expression 必选。返回上述对象之一的表达式。

Index 可选，Variant类型。指向 PageWindows 集合中的单个项目。可以是对应于集合中的项目的任意数字，索引号从零开始。

ForceSave 可选，Boolean 类型。值为 True 时，在 Close 方法完成之前强制保存指定的文件。默认值为 False。

关闭指定的 WebWindowEx 对象。

expression.Close(Index)

expression 必选。返回上述对象之一的表达式。

Index 可选，Variant 类型。指向 WebWindows 集合中的项目。可以是对应于集合中的项目的任意数字，索引号从零开始。

关闭指定的对象。

expression.Close

expression 必选。返回上述对象之一的表达式。

示例

以下示例关闭当前网页窗口。

Sub CloseWindow()
'Closes the active page window

    Dim objApp As FrontPage.Application

    Set objApp = FrontPage.Application
    If Not objApp.ActivePageWindow Is Nothing Then
    objApp.ActivePageWindow.Close ForceSave:=True
 End If

End Sub

以下示例关闭 WebWindows 集合中的第一个站点的第一个网页窗口。

Sub CloseWindow()
'Closes a page window

    Dim objApp As FrontPage.Application
    Dim objPgeWindows As PageWindows

    Set objApp = FrontPage.Application
    Set objPgeWindows = objApp.ActiveWeb.WebWindows(0).PageWindows
    objPgeWindows.Close Index:=0, ForceSave:=True

End Sub

以下示例关闭所有打开的站点窗口。

Sub CloseWindow()
'Closes all web windows

    Dim objApp As FrontPage.Application
    Dim objPgeWindows As WebWindows

    Set objApp = FrontPage.Application
    Set objWebWindows = objApp.ActiveWeb.WebWindows
    objWebWindows.Close

End Sub

以下示例关闭活动站点（如果活动站点存在）。

Sub CloseWindow()
'Closes the active document

    Dim objApp As FrontPage.Application

    Set objApp = FrontPage.Application
    If Not objApp.ActiveWeb Is Nothing Then
    objApp.ActiveDocument.Close
 End If

End Sub