使用VBA填充浏览器富文本字段报错，提示“对象不支持该属性或方法”

富文本编辑框和普通文本框的DOM结构逻辑不同，这类控件通常是嵌套iframe或带有contentEditable属性的元素，没有直接的Value属性，所以直接用.Value = "text"会报错。

针对两种常见富文本结构的解决代码： #

1. 如果富文本框是iframe结构

' 获取目标iframe元素
Dim richTextFrame As Object
Set richTextFrame = IE.document.getElementById("ct100_ct138...RTC14_RTI1_RT1_newRichText")

' 向iframe内部的body写入内容
richTextFrame.contentDocument.body.innerHTML = "text"
' 旧版IE可能需要替换为：
' richTextFrame.contentWindow.document.body.innerHTML = "text"

2. 如果富文本框是带contentEditable属性的元素（如div/span）

' 获取目标富文本元素
Dim richTextElem As Object
Set richTextElem = IE.document.getElementById("ct100_ct138...RTC14_RTI1_RT1_newRichText")

' 写入HTML格式内容
richTextElem.innerHTML = "text"
' 若只需纯文本，可改用：
' richTextElem.textContent = "text"

额外提示 #

可以通过IE的F12开发者工具查看富文本元素的实际结构：

• 若元素是iframe，需操作其内部文档的body节点
• 若元素是普通标签且带有contentEditable="true"属性，直接设置innerHTML或textContent即可

内容的提问来源于stack exchange，提问作者Steven A