>>IF LEN(lcString) < 254 >> WITH THIS.oWordDoc.Content.FIND >> .TEXT = lcSearchString >> .FORMAT = .F. >> .MatchCase = .T. >> .Replacement.TEXT = lcString >> .Execute(,,,,,,,,,,2) && 2 = Replace all >> ENDWITH >>ELSE >> * Can't use simple find/replace because replacement string is too long.... >> DO WHILE .T. >> loRange = THIS.oWordDoc.RANGE(0,0) >> WITH loRange.FIND >> .TEXT = lcSearchString >> .FORMAT = .F. >> .MatchCase = .T. >> llFound = .Execute() >> IF llFound >> loRange.TEXT = lcString >> ELSE >> EXIT >> ENDIF >> ENDWITH >> ENDDO >>ENDIF >>>>HTH,