Save 方法

保存 PageWindowEx 对象。

expression  返回 PageWindowEx 对象的表达式。

ForceOverwrite  可选，Boolean 类型。ForceOverwrite 参数可用于覆盖现有文件。默认值是 True。

示例

本示例创建属性，并将其添加到文件中，然后保存活动网页窗口。

注意  若要运行本示例，必须有一个称为“C:\My Documents\My Webs\Rogue Cellars”（对于在 Microsoft Windows 上运行的服务器）或“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars”（对于在 Windows NT 上运行的服务器）的站点，或者也可以用另一站点 URL 和文件来代替。

Private Sub AddSaleText()
    Dim myWeb As WebEx
    Dim myFile As WebFile
    Dim mySaleProp As String
    Dim mySaleText As String

    mySaleText = "Vintage Wines for Oktoberfest Sale!!!"
    Set myWeb = Webs.Open("C:\My Documents\My Webs\Rogue Cellars")
    Set myFile = ActiveWeb.RootFolder.Files("Sale.htm")

    myFile.Properties.Add "SaleText", mySaleText
    mySaleProp = myFile.Properties("SaleText")
    myFile.Open
    ActiveDocument.body.insertAdjacentText "BeforeEnd", mySaleProp
    ActivePageWindow.Save
    WebWindows.Close
End Sub