Anführungszeichen ins Makro

[d'r Bastler]

Moin Stffen,

dann versuch's doch mal so:

Code:

Option Explicit

Sub FarbigAngeführt()
Dim doc As Document: Set doc = ActiveDocument
Dim rng As Range: Set rng = doc.Content
   
    With rng.Find
        .ClearFormatting
        .Text = Chr(34) & "*" & Chr(34)
        .MatchWildcards = True
        .Forward = True
        .Wrap = wdFindStop
        Do While .Execute
            rng.Font.Color = wdColorBlue
            rng.Collapse wdCollapseEnd
        Loop
    End With
   
End Sub

Mit Standardanführungszeichen (doppeltes Hochkomma oben) erfolgreich getestet, Wenn Du andere verwendest, musst Du die Chr() anpassen.

Viel Erfolg!

und schöne Grüße!