Anführungszeichen ins Makro

[hartmannsteffen]

Hallo. Ich habe ein Makro mit dem ich Text in Anführungszeichen farblich gestalten kann. Mein Problem: ich möchte die An - und Ausführungszeichen selbst mit farblich gestalten. Wie ändere ich das Makro? Danke 



Das Makro hier: 

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 = ActiveDocument.Range(suchbereich.Start + 1, suchbereich.End - 1)
                fundbereich.Font.Color = RGB(62, 137, 206)
            Loop
    End With
End Sub