如何在当前（光标）位置将元素插入DOM

我想将SpanElement插入DOM的当前（光标）位置。 我使用VB6函数：

Private Function InsertSpan(Tipo As String, Nome As String)

Dim oSpan As MSHTML.HTMLSpanElement
Dim oCurElement As MSHTML.IHTMLElement
Dim oDOM As MSHTML.HTMLDocument

Set oDOM = HTMLEdit.DOM
Set oCurElement = oDOM.activeElement

Set oSpan = oDOM.createElement("SPAN")

oSpan.Id = Tipo & "." & Nome
oSpan.className = Tipo
oSpan.innerHTML = "<b><font size='3' color='#000000'></font></b>"
oSpan.lastChild.lastChild.innerText = "[" & Nome & "]"
oSpan.Style.backgroundColor = "yellow"

oSpan.hideFocus = True
oSpan.contentEditable = "false"
oSpan.Style.verticalAlign = "middle"

oCurElement.appendChild oSpan
oDOM.parentWindow.Focus

End Function

Private Function InsertSpan（Tipo作为字符串，Nome作为字符串）
Dim oSpan作为MSHTML.HTMLSpanElement
Dim ocument作为MSHTML.IHTMLElement
将oDOM设置为MSHTML.HTMLDocument
设置oDOM=HTMLEdit.DOM
设置ocurement=oDOM.activeElement
设置oSpan=oDOM.createElement（“SPAN”）
oSpan.Id=Tipo&“&”和Nome
oSpan.className=Tipo
oSpan.innerHTML=“”
oSpan.lastChild.lastChild.innerText=“[”&Nome&“]”
oSpan.Style.backgroundColor=“黄色”
oSpan.hideFocus=True
oSpan.contentEditable=“false”
oSpan.Style.verticalAlign=“中间”
眼贴
oDOM.parentWindow.Focus
端函数

但是元素被追加到当前元素。

---

谢谢，Luigi。

如果我正确理解您的问题，您可以尝试更换：

眼贴

与：

ocurerelation.insertAdjacentHTML“beforebeagin”，oSpan.outerHTML

我解决了它

oCurElement.appendChild oSpan

与

---

谢谢大家

谢谢，但是不行。看这里（）

ocurement

is body。您是否有可能包含之前、预期和实际的HTML代码片段示例？我找到了解决方案。谢谢

Dim objRange As IHTMLTxtRange
Set objRange = oDOM.selection.createRange
objRange.pasteHTML oSpan.outerHTML