Find and replace one word in Microsoft Documents With Delphi

Hi
tell me if this what you need:

uses
     ComObj;   {se necesita para hacer OLE automation}

procedure TForm1.Button1Click(Sender: TObject);
//from word to richedit...
begin
  MsWord := GetActiveOleObject('Word.Basic');
  MsWord.EditSelectAll;
  MsWord.EditCopy;
  Form1.RichEdit1.PasteFromClipboard;
end;

procedure TForm1.Button2Click(Sender: TObject);
//from richedit to word...
begin
  MsWord := GetActiveOleObject('Word.Basic');
  Form1.RichEdit1.SelectAll;
  Form1.RichEdit1.CopyToClipboard;
  MsWord.EditSelectAll;
  MsWord.EditPaste;

end;

best regards
Manuel Lopez (lopem)

d : TWordDocument;

  vFindText := source;
  vReplaceWith := target;
  vMatchCase := true;
  vMatchWholeWord := true;
  vReplace := wdReplaceAll;

  d.Range.Find.Execute( vFindText, vMatchCase, vMatchWholeWord, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, vReplaceWith, vReplace, EmptyParam, EmptyParam, EmptyParam, EmptyParam );

This code is that i need ,but it dose not work.
I dont know thats roson.

eugenem , if need any setting to work you'r code.