关于文档中的字符替换

procedure ChangeStrth(Str1,Str2 : String ; REdit:TwwDBRichEditMSWord);
var
  FoundAt : LongInt;
  StartPos, ToEnd: Integer;begin
  FoundAt:=0;
  StartPos := 0;  ToEnd := Length(REdit.Text) - StartPos;
  while FoundAt < ToEnd do
  begin
    FoundAt := REdit.FindText(str1,StartPos,ToEnd,[stMatchCase]);
    if FoundAt <> -1 then
    begin
      REdit.SetFocus;
      REdit.SelStart := FoundAt;
      REdit.SelLength := Length(str1) ;
      REdit.SelText:=Str2;
    end
    else
    begin
      exit;
    end;
  end;
end;
如果用程序指定STR1，即不好用
如果输入汉字做为STR1，就必然好用
在2000下一定好用，在98下一定不好用，除非输入汉字
以RICHEDIT为载体，一定好用，但可惜不支持表格
可有其他控件，类似RICHEDIT，且支持表格；或其他替换方法？
因为菜鸟太多，所以另开贴结帐！