Hi Milton,
I was thinking more along the lines of what John's understanding was and that you were interested in obtaining just the text of each line without any formatting. If you did want the formatting then what Ronnie provided would work.
In the event you were not interested in the formatting characters but only the pure text, the following modification to Ronnie's code will pull out just the text:
FOR li_line = 1 TO rte_1.LineCount()
/* Move cursor to li_line */
rte_1.SelectText(li_line, 1, 0, 0, Detail!)
rte_1.SelectTextLine()
rte_1.Copy()
ls_rtf = ClipBoard()
...
NEXT
HTH...regards,
Mark