ctxDump.getRichTextItem doc, "Body"
ctxDump.appendText "*begin*"
Dim g As New rtGraphic(0), icon as rtGraphic
g.ResourceName = "BOX_RBOD.gif"
Set icon =New rtGraphic (0)
icon.resourceName ="vwicn080.gif" ' iconPublic
ctxDump.add g
ctxDump.appendText "*middle*"
ctxDump.add icon
ctxDump.appendText "*end*"
ctxDump.addNewLine 1
Set icon =New rtGraphic (0)
icon.resourceName ="vwicn080.gif" ' iconPublic
ctxDump.add icon
ctxDump.appendText "*end*on next line"
|