Aloha zusammen
Mal wieder ne frage. Ich habe Word Templates (in htm gespeichert). diese sind mit keyWords bestückt z.B. @datum@ dies soll nun ersetzt werden durch das Datum. Nun habe ich eine schlaufe gebaut und innerhalb dieser schlaufe den code:
Delphi-Quellcode:
...
if x = 1
then
word.Documents.Add('
\\server\verwaltung\wordvorlagen\i_'+sprache+'
.htm', EmptyParam)
else
word.Selection.InsertFile('
\\server\verwaltung\wordvorlagen\i_'+sprache+'
.htm');
vAlt := '
@RDATUM@';
vNeu := DateToStr(DateTimePicker1.Date);
word.Selection.Find.Text := vAlt;
word.Selection.Find.Replacement.Text := vNeu;
word.Selection.Find.MatchWholeWord := True;
word.Selection.Find.Execute(Replace := wdReplaceOne);
word.Selection.EndKey(
Unit:=wdStory);
word.Selection.InsertBreak(wdPageBreak);
...
Das funktioniert nicht schlecht alle seiten werden eingebunden aber nur die erste wird mit dem Datum bestückt. Nun meine Frage wie bekomme ich es hin das ich jede einzelne seite im gleichen doc mit einem individuellen datensatz ersetzen kann? So wie ich es in dem Code geschrieben habe werden nur die platzhalter der erste seite ersetzt.