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