Dim rtitem As Variant
Set rtitem = curdoc.GetFirstItem("content")
Set rtitem=curdoc.ReplaceItemValue("content","")
show=你要取的RTF域名
Call rtitem.appendtext(show)
这样肯定不会出现你说所的内容的,我10w字的都用过。
to wxy001(后天等) :
Dim rtitem As Variant
Set rtitem = curdoc.GetFirstItem("content")
Set rtitem=curdoc.ReplaceItemValue("content","")
show=你要取的RTF域名
Call rtitem.appendtext(show)
这样肯定不会出现你说所的内容的,我10w字的都用过。
Dim rtitem As Variant
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
plainText = rtitem.GetFormattedText( False, 0 )
End If