Show All

insertAdjacentHTML Method

Inserts HTML text into a document at the specified location.

expression.insertAdjacentHTML(where, html)

expression    Required. An expression that returns one of the objects in the Applies To list.

where    Required. String that specifies where to insert the HTML text. Can be one of the following values :

html    Required. String that specifies the HTML text to insert. The string can be a combination of text and HTML tags. This must be valid, well-formed HTML.

Remarks

Use the insertAdjacentText method to insert text without providing the accompanying HTML tags. In addition, you can use the outerHTML and outerText properties to insert HTML and text outside the specified element, and the innerHTML and innerText properties to insert HTML and text inside the specified element. The following image illustrates where each of these properties applies. Note that the innerHTML and outerHTML properties require well-formed HTML.

Example

The following example inserts the date when the specified document was last modified into the specified document and formats it with the specified font name, font size, and color.

Sub AddModifiedDateToDocument(objDoc As FPHTMLDocument, strFont As String, _
        strSize As String, strColor As String)
    Dim objFont As FPHTMLFontElement
    
    objDoc.body.insertAdjacentHTML where:="beforeEnd", _
        HTML:="<p><font id=""modifiedon""></font></p>"
    
    Set objFont = objDoc.body.all.tags("font").Item("modifiedon")
    
    objFont.insertAdjacentText where:="beforeEnd", Text:="Last modified on: " _
        & objDoc.fileModifiedDate
    
    With objFont
        .face = strFont
        .Size = strSize
        .Color = strColor
    End With
End Sub
		

Use the following example to call the preceding example.

Sub CallAddModifiedDateToDocument()
    Call AddModifiedDateToDocument(ActiveDocument, "Arial", "2", "Blue")
End Sub