Anführungszeichen ins Makro

[hartmannsteffen]

Danke für deine Hilfe. Hatte es da eingefügt aber dann kommtein Fehler beim ausführen des Makro. Vielleicht hab ich was falsch eingefügt? Sorry bitte:

Sub machFarbe()
Dim suchbereich As Range, fundbereich As Range
 
Set suchbereich = ActiveDocument.Range
 
    With suchbereich.Find
        .MatchWildcards = True
        .Text = Chr(132) & "*" & Chr(147)
            Do While .Execute
                Set fundbereich = fundbereich.select
with Selection
.font.colorindex = vbBlue
end with
End Sub