VBA insertAdjacentHTML，剥离标签

Question

我正在处理VBA中的一些HTML，并希望为标记注入一个元素。

 oElement.insertAdjacentHTML "beforeEnd", "<base>HELLO</base>"

如果我检查oElement.OuterHTML所有添加的内容是HELLO

...<LINK rel=stylesheet type=text/css href="css/default.css">HELLO</HEAD>...

如果我尝试添加li标签，它会按预期工作。

oElement.insertAdjacentHTML "beforeEnd", "<li>HELLO</li>"

结果

....<LINK rel=stylesheet type=text/css href="css/default.css">HELLO <LI>HELLO</LI> </HEAD>...

我尝试过只使用<base />或<base href="blah blah，没有添加任何内容。我错过了关于insertAdjacentHTML的一些关键知识。

任何想法??

Answer 1

你需要使用IHTMLDOMNode接口作为头部对象（不知道为什么，但它有效）。创建一个＆＃34; BASE＆＃34;元素，设置href的属性，最后使用appendChild将其添加到头部。