createElement 方法

根据指定参数创建代表 HTML 元素的新 IHTMLElement 对象。

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

eTag  必选。String 类型。代表新 HTML 标记类型。

说明

只能创建新的 <IMG> 和 <OPTION> 元素标记。在使用它们之前，新对象必须准确地添加到它们各自的集合中。

示例

下列示例创建新 <P> 元素。<P> 元素对应于 HTML 段落标记。

Sub CreateElement()
'Creates a new element

    Dim objDoc As DispFPHTMLDocument
    Dim objTag As IHTMLElement

    Set objDoc = FrontPage.ActiveDocument
    'Create new tag
    Set objTag = objDoc.CreateElement("P")
    objDoc.body.innerHTML = objDoc.body.innerHTML & objTag.outerHTML

End Sub

下列示例创建新的 <IMG> 标记，但没有创建引用该标记的新对象。

 Sub NewElement()
 'Creates a new <IMG> element

    Dim objDoc As DispFPHTMLDocument

    Set objDoc = FrontPage.ActiveDocument
    'Create new IMG tag
   objDoc.body.innerHTML = objDoc.body.innerHTML & _
                           objDoc.createElement (eTag:="IMG").outerHTML

End Sub