FrontPage VBA教程:webbots属性

返回 IHTMLElementCollection集合,该集合代表当前文档中所有 Web 组件的集合。

expression.webbots

expression  必选。返回DispFPHTMLDocument对象的表达式。

说明

此集合先按名称索引,再按标识符索引。如果发现相同的名称,则返回具有该名称的项目的集合。相同名称的集合随后必须按位置序号进行引用。

VBA示例

下列示例创建对当前文档的 Web 组件集合的引用,并显示当前网页中 Web 组件的数目。


Sub ReturnWebBots()
'Returns the collection of all webbots in the document
    Dim objApp As FrontPage.Application
    Dim objBots As IHTMLElementCollection
    Dim objBot As IHTMLElement
    Dim intCount As Integer
    intCount = 0
    Set objApp = FrontPage.Application
    Set objBots = objApp.ActiveDocument.webbots
    'For each webbot in the document
    For Each objBot In objBots
       'Keep count of number of webbots
       intCount = intCount + 1
    Next objBot
    'Display number of webbots in collection
    If intCount = 0 Then
        MsgBox "There are no webbots in the current document."
    Else
        MsgBox "There are " & intCount & " webbots in the current document."
    End If
End Sub

上页:FrontPage VBA教程:Web属性 下页:FrontPage VBA教程:Webs属性

FrontPage VBA教程:webbots属性

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事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号