[PashaXP]

Нашел такую процедурку на форуме - FindAndPasteTextDoc- находит и заменяет текст, использую для собственных нужд -

Код:

......
FUNCTION FindAndPasteTextDoc(findtext_,pastetext_:string):boolean;
BEGIN
 FindAndPasteTextDoc:=true;
 try
   W.Selection.Find.Forward:=true;
   W.Selection.Find.Text:= findtext_;
   if W.Selection.Find.Execute then begin
   W.Selection.Delete;
   W.Selection.InsertAfter (pastetext_);
 end else FindAndPasteTextDoc:=false;
 except
   FindAndPasteTextDoc:=false;
 end;
END;
.....
procedure TForm1.Button4Click(Sender: TObject);
begin
CreateWord;
VisibleWord(true);
OpenDoc('C:\1.doc');
FindAndPasteTextDoc('*DATA*','wwww');
FindAndPasteTextDoc('*MODEL*','1111');
FindAndPasteTextDoc('*SN*','22222');
end;

НО, выполняется только первая замена текста....???