word Template

[Christophe]

hallo zusammen

ich bin zwar weitergekommen mit meiner Template Geschichte aber was ich nicht hinbekomme ist das ich nicht mehrere wörter nacheinander ersetzen kann. Mein Beispiel code:

Delphi-Quellcode:

...
    word.Selection.Find.ClearFormatting;
    word.Selection.Find.Text := '@RDATUM@';
    word.Selection.Find.Replacement.Text := DateToStr(DateTimePicker1.Date);

    word.Selection.Find.Forward := True;
    word.Selection.Find.Wrap := wdFindContinue;
    word.Selection.Find.MatchWholeWord := True;
    word.Selection.Find.Format := False;
    //word.Selection.Find.MatchCase := wrfMatchCase in Flags;
    word.Selection.Find.MatchSoundsLike := False;
    word.Selection.Find.MatchAllWordForms := False;
    word.Selection.Find.Execute(Replace := wdReplaceOne);

    word.Selection.Find.ClearFormatting;
    word.Selection.Find.Text := '@RECHNR@';
    word.Selection.Find.Replacement.Text := 'test';

    word.Selection.Find.Forward := True;
    word.Selection.Find.Wrap := wdFindContinue;
    word.Selection.Find.MatchWholeWord := True;
    word.Selection.Find.Format := False;
    //word.Selection.Find.MatchCase := wrfMatchCase in Flags;
    word.Selection.Find.MatchSoundsLike := False;
    word.Selection.Find.MatchAllWordForms := False;
...

Das ganze ist in einer while schlaufe die, die Templates aufrufen und den platzhalter Text ersetzen sollten. Mit dem ersten Replace funktioniert dies auch wunderbar aber der zweite wird nicht ersetzt. Ich hoffe es weis jemand an was das liegen kann.

Danke

Christophe