>I use this code from Tamar's book:
>

>	oRange = oWord.ActiveDocument.RANGE(0,0) && Start of document
>	WITH oRange.FIND
>		.TEXT ="!description!"
>		.MatchCase = .F.
>		.FORMAT = .F.
>		* what to replace it with
>		.Replacement.TEXT = lcdescription 
>		.Replacement.FONT.Bold = .T.
>		.Replacement.ParagraphFormat.LeftIndent = 12
>		* go!
>		lFound = .Execute( , , , , , , , , , , wdReplaceAll )
>	ENDWITH
>

>
>the data come from a memo field .
>
>i tried to use chr(13) as CR or chr(10), or both
>
> all of them insert a little square instead of real carriage returns
>i attached a screen shot
>
>
>i want to have multiple lines insted I get it all in one line
>
>what am I doing wrong??
>
>
>Peter


Thst works for me:

LOCAL loWord AS Word.Application
loWord = CREATEOBJECT([Word.Application])
loWord.Visible = .t.
loWord.Documents.Add()
loWord.Selection.TypeText("!description!")
TEXT TO lcdescription NOSHOW TEXTMERGE PRETEXT 1+2
     This is first line
     This is second line
     This is thirth line
ENDTEXT

oRange = loWord.ActiveDocument.RANGE(0,0) && Start of document
WITH oRange.FIND
        .TEXT ="!description!"
        .MatchCase = .F.
        .FORMAT = .F.
        * what to replace it with
        .Replacement.TEXT = lcdescription 
        .Replacement.FONT.Bold = .T.
        .Replacement.ParagraphFormat.LeftIndent = 12
        * go!
        lFound = .Execute( , , , , , , , , , , 2 )
    ENDWITH