Thanks Borislav,
yes your code works here too. I forgot to mention thet !description! is within a table cell :-(

and there it does not work

P


>>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
>