FrontPage VBA教程:Properties属性

返回指定对象的 Properties集合。

VBA示例

本示例添加新属性,并在当前 Web 页上显示该属性。

注意  若要运行本示例,您必须有称为“C:\My Documents\My Webs\Rogue Cellars”的站点(对于在 Microsoft Windows 上运行的服务器 )或称为“C:\WINNT\Profiles\logon alias\Personal\My Webs\Rogue Cellars”的站点(对于在 Windows NT 上运行的服务器),且必须有称为“Zinfandel.htm”的文件。或者,您也可以用另外的站点 URL 或文件来代替。


Private Sub CopyrightAdd()
 Dim myWeb As WebEx
 Dim myCopyright As String
 myCopyright = "Copyright 1999 by Rogue Cellars"
 Set myWeb = Webs.Open("C:\My Documents\My Webs\Rogue Cellars")
 myWeb.Activate
 ActiveWeb.Properties.Add "Copyright", myCopyright
 ActiveWeb.RootFolder.Files("Zinfandel.htm").Open
 ActiveDocument.body.insertAdjacentText "BeforeEnd", _
      ActiveWeb.Properties("Copyright")
 ActivePageWindow.Save
 ActiveWeb.Close
End Sub

上页:FrontPage VBA教程:ProfileString属性 下页:FrontPage VBA教程:protocol属性

FrontPage VBA教程:Properties属性

FrontPage VBA教程:protocol属性 FrontPage VBA教程:ReadOnly属性
FrontPage VBA教程:ReadSecurity属性 FrontPage VBA教程:ReadyState属性
FrontPage VBA教程:RecentFile属性 FrontPage VBA教程:Required属性
FrontPage VBA教程:RevisionControlProject属性 FrontPage VBA教程:RootFolder属性
FrontPage VBA教程:RootNavigationNode属性 FrontPage VBA教程:scripts属性
FrontPage VBA教程:SelectedFiles属性 FrontPage VBA教程:SelectedFolders属性
FrontPage VBA教程:selection属性 FrontPage VBA教程:selectorText属性
FrontPage VBA教程:SharedBorders属性 FrontPage VBA教程:ShowAsPercentage属性
FrontPage VBA教程:ShowStartupDialog属性 FrontPage VBA教程:ShowUserNamesInResults属性
FrontPage VBA教程:SlowPage属性 FrontPage VBA教程:styleSheets属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号