Text suchen und einfärben in Word

[knochen]

Hallo zusammen,

wie kann ich mittels TWordApplication oder TWordDocument einen Text suchen und einfärben?
Beispiel: Ich habe ein DOC geöffnet und die Verbindung dazu mit einem TWordApplication-Objekt hergestellt. Ich suche den Text "Schöne Gegend hier..." und möchte die Farbe ändern, mit der dieser Text dargestellt wird. Wie geht das?

Danke für jeden Tipp.

Viele Grüße,
Knochen

[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.

[knochen]

Vielen Dank für deine Antwort, Bummi.
Der Chef hat die Anforderung mittlerweile geändert :roll:, aber ich bin sicher, dass er das nochmal tun wird und dann nehme ich deine Lösung. :thumb:

Viele Grüße,
Knochen