word Template

[Christophe]

Hat sich erledigt ... sorry

der richtige 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.MatchSoundsLike   := False;
    word.Selection.Find.MatchAllWordForms := False;
    word.Selection.Find.Execute(Replace := wdReplaceOne);