Office-Fragen.de
Anführungszeichen ins Makro - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Word (https://office-fragen.de/forum-3.html)
+--- Thema: Anführungszeichen ins Makro (/thread-29252.html)



Anführungszeichen ins Makro - hartmannsteffen - 22.07.2025

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 
[Bild: Screenshot-2025-07-22-215931.png]


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