>"a) Entrada de R$ %2.816,52 (Dois Mil Oitocentos e Dezesseis Reais e >Cinqüenta e Dois Centavos )%% em %2 (Duas )%% parcelas %NÃO REAJUSTÁVEIS e SEM >JUROS%%, sendo a primeira no valor de R$ %1.408,26%% no dia %15/03/2004%%, e a >segunda no valor de R$ %1.408,26%% no dia %15/04/2004%%" >>Im replacing the text in Word this way..
>LOCAL oWord AS "Word.Application" >IF TYPE("oWord") <> "O" > oWord = CREATEOBJECT("Word.Application") >ENDIF > >oWord.VISIBLE = .F. >loSelection = oWord.ActiveWindow.ActivePane.SELECTION >loSelection.FIND.ClearFormatting() > >WITH loSelection.FIND > .TEXT = "@@TEXT1" > .Replacement.TEXT = "" > .Forward = .T. > .WRAP = wdFindContinue > .FORMAT = .F. > .MatchCase = .F. > .MatchWholeWord = .F. > .MatchWildcards = .F. > .MatchSoundsLike = .F. > .MatchAllWordForms = .F. >ENDWITH > >loSelection.FIND.TEXT = "@@TEXT1" >loSelection.FIND.Execute() >loSelection.TypeText(TRIM(VFP_VAR1)) >loSelection.GOTO(3,1,1) >>