Text suchen und einfärben in Word

[Bummi]

Ich habe noch nie mit TWordDocument gearbeitet (immer per OLE), ich nehme an dass es eine Kapselung hierfür ist, wenn dem so ist solltest mit folgenden Schnipselauszügen, nach Anpassung, weiterkommen

Delphi-Quellcode:

        FFindObject  :=  FDocument.ActiveWindow.Selection.Find;
        
..........................

   FFindObject.ClearFormatting;
        FFindObject.Replacement.ClearFormatting;
        FFindObject.Text := s;
        FFindObject.Forward := True;
        FFindObject.Replacement.Text := '';
        FFindObject.Wrap := 1;
        FFindObject.MatchCase := False;
        FFindObject.MatchWholeWord := False;
        FFindObject.MatchWildcards := False;
        FFindObject.MatchSoundsLike := False;
        FFindObject.MatchAllWordForms := False;
        Result  := FFindObject.Execute();//boolean , danach selektiert

...........................
      
   FWord.Selection.Font.Color :=  Color;

Ansonsten ist es meist hilfreich ein Macro aufzuzeichnen und Du schauen was bei manueller Ausführung an Code entsteht.