TinyMCE textarea 输入框外部程序动态修改方法

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