Thema: Delphi word datei ausfüllen

Einzelnen Beitrag anzeigen

CitnAmor

Registriert seit: 14. Aug 2002
5 Beiträge
 
#6
  Alt 25. Apr 2003, 21:39
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....
..yEaH..cAll...mE..tHe..wAndArA..
  Mit Zitat antworten Zitat