I use to do the following for reports when I need the normal text:
loText = CREATEOBJECT("RichText.RichTextCtrl.1")
SELECT InfoMemo FROM MyTable INTO CURSOR MyCursor READWRITE &7 works only in VFP 7!
SCAN
loText.TextRTF = MyCursor.InfoMemo
REPLACE MyCursor.InfoMemo WITH loText.Text
ENDSCAN
REPORT FORM MyReport TO PRINTER PROMPT PREVIEW NOCONSOLE
RELEASE loText
USE IN MyCursor
>Denis,
>
>If you're using Microsoft's RTF control, then you could try the following:
>
>*-- get only the text without all the formating codes
>lcText = ThisForm.oleRtfControl.text
>
>
>HTH
>>Hilmar, thanks a lot. I have it working. I wonder if there a function to convert the RTF text in the memos to standard text - as needed in some basic reports. And if the memos are transfered to Word, is it poss. to translate the memo text from RTF to normal word stuff. Many thanks.
Christian Isberner
Software Consultant