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

[d'r Bastler]

Moin Steffen,

da dürfte Dir ein Select fehlen:

Code:

fundbereich.select
with Selection
.font.colorindex = vbBlue
end with

Nur so als Schuss ins Blaue ;-)

Frage am Rande: Wieso beschneidest Du Deinen Suchbereich? Gibt's dafür einen Grund?

Grüße

[hartmannsteffen]

Hallo und erst einmal danke für die Hilfe,

Nun das Makro habe ich nicht selbst erstellt. Ich kenne mich damit nicht aus. Hat mir hier jemand vor Jahren gefertigt. 
Ich wollte Text innerhalb von Anführungszeichen kursiv haben. 

Wo muss ich deinen teil einfügen?

[d'r Bastler]

Moin Steffen,

in Deinem Code gibt es die Zeile Set fundbereich = ...

Meine vier Zeilen ersetzen Deine eine Zeile danach.

Um auch tatsächlich Deine Farbe zu setzen, ändere meine Zeile 2 auf  .Foont.Color = RGB(62, 137, 206)

Das sollte schon funktionieren 

Meine Frage spielt im Zusammenhang Deines Codes keine erhebliche Rolle ... einfach vergessen.

Viel Erfolg!

[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