FrontPage VBA教程:Webs属性

返回指定对象已打开站点的集合。

VBA示例

本示例创建数组,该数组包含 Web 站点上所有己打开站点的全部 URL。

注意  您必须打开要获取其 URL 的任何站点。


Private Sub GetWebs()
 Dim myWebs As Webs
 Dim myWeb As WebEx
 Dim myOpenWebs() As Variant
 Dim i As Integer
 Dim myWebCount As Integer
 Set myWebs = Application.Webs
 myWebCount = myWebs.Count
 ReDim myOpenWebs(myWebCount)
 Do
  For Each myWeb In myWebs
       myOpenWebs(i) = myWeb.Url
       i = i + 1
  Next
 Loop Until i > myWebCount
End Sub

上页:FrontPage VBA教程:webbots属性 下页:FrontPage VBA教程:WebWindows属性

FrontPage VBA教程:Webs属性

FrontPage VBA教程:WebWindows属性 FrontPage VBA教程:WhiteSpace属性
FrontPage VBA教程:Microsoft FrontPage对象 FrontPage VBA教程:不支持的语言元素
FrontPage VBA教程:隐藏的语言元素 FrontPage VBA教程:OnActivate事件
FrontPage VBA教程:OnAfterPageSave事件 FrontPage VBA教程:OnAfterPageWindowViewChange事件
FrontPage VBA教程:OnAfterPublish事件 FrontPage VBA教程:OnAfterSave事件
FrontPage VBA教程:OnAfterSubViewChange事件 FrontPage VBA教程:OnAfterViewChange事件
FrontPage VBA教程:OnAfterWebPublish事件 FrontPage VBA教程:OnAfterWebWindowSubViewChange事件
FrontPage VBA教程:OnAfterWebWindowViewChange事件 FrontPage VBA教程:OnBeforePageSave事件
FrontPage VBA教程:OnBeforePageWindowViewChange事件 FrontPage VBA教程:OnBeforePublish事件
FrontPage VBA教程:OnBeforeSave事件 FrontPage VBA教程:OnBeforeSubViewChange事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号