返回代表当前文档中的活动元素的 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