TinyMCE textarea 输入框外部程序动态修改方法
Public Function C2IE_TINYMCE(ByVal id As String, ByVal value As String)
Dim ielist As New ShellWindows
Dim browser
Dim doc
Dim cmd As String
On Error Resume Next
For Each browser In ielist
If Mid(browser.Document.Title, 1, 6) = "1KISTI" Then
Set doc = browser.Document
cmd = "tinyMCE.getInstanceById('" + id + "').setContent('" + value + "');"
doc.parentWindow.execScript (cmd)
End If
Next
End Function