Thanks Andre for the feedback....
I change de code for this:
Call curdoc.RemoveItem("ifmjnd_1")
Call curdoc.CreateRichTextItem("ifmjnd_1")
Set rtitemA = curdoc.GetFirstItem( "ifmjnd_1" )
Set rtitemB = curdoc.GetFirstItem( "ifmjnd" )
'Call curdoc.ReplaceItemValue ("ifmjnd_1", "")
Call rtitemA.AppendRTItem( rtitemB )
curdoc.SaveOptions = "0"
Call curdoc.Save(True, False)
But I still getting something display outside the richtext field. Like this:
Return to top
. . . . . . . . RE: AppendRTItem and return> value... (Charles-André B... 16.Apr.08) 
Print this page
