word datei ausfüllen

[CitnAmor]

mit der schleife meine..:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Word_StringReplace('C:\Test.doc','hallo','123456',[wrfReplaceAll]);
  Word_StringReplace('C:\Test.doc','mama','ficken',[wrfReplaceAll]);
  Word_StringReplace('C:\Test.doc','papa','bumsen',[wrfReplaceAll]);
  Word_StringReplace('C:\Test.doc','schwester','blasen',[wrfReplaceAll]);
end;

so jetzt ersetzt der ja hallo in 12345... mama in f... usw das prob is nur dass der jedesmal die word datei öffnet den string sucht den string ersetzt... da ich das mit vielen wörtern machen muss... also ne schlechte lösung... jetzt dachte ich mir ne schleife zu machen.. die vor zwischen {initialize...} und {save}...! dann brauch der net jedesmal das doc öffen speichern schließen....