activeElement 属性

       

返回代表当前文档中的活动元素的 IHTMLElement 对象。

expression.activeElement

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

示例

下列示例返回当前文档的活动元素并显示与元素相关联的类的名称。如果 className 属性为空,则向用户显示一条消息。

Sub ReturnActiveElement()
'Returns the active element of the current document
'and displays the element's class name.

    Dim objApp As FrontPage.Application
    Dim objElement As IHTMLElement

    Set objApp = FrontPage.Application
    Set objElement = objApp.ActiveDocument.activeElement

    'If the classname is not empty then
    If objElement.className <> "" Then
        'Display class name to user
        MsgBox "The current element is a " & _
               objElement.className & "."
    Else
       'Otherwise display message
       MsgBox "The current element has no associated class name."
    End If

End Sub