Anführungszeichen ins Makro

Code:
Option Explicit     'prüft, ob alle Variablen im Code sauber deklariert sind. Falls nicht -> motz!!

Sub FarbigKursivAngeführt()

Dim doc As Document: Set doc = ActiveDocument     'deklariert eine Variable und füllt sie mit Inhalt

Dim rng As Range: Set rng = doc.Content

   

    With rng.Find     'with leitet eine Gruppe von Eigenschaften für rng ein

        .ClearFormatting     'löscht erst einmal alle Formatieungen des Ranges, aufräumen nenne ich das

        .Text = Chr(34) & "*" & Chr(34)     'definiert den Suchbegriff, also " & blablubb & "

        .MatchWildcards = True     'erlaubt wildcards, also *

        .Forward = True     'geht den nächsten Schritt

        .Wrap = wdFindStop     'sucht bis zum Ende des Dokuments

        Do While .Execute     'sucht per Schleife solange es Treffer gibt

            With rng     'bearbeitet wieder eine Gruppe von Eigenschaften, diesmal im -mit dem Ergebnis gefüllten- Range

                .Font.Color = wdColorBlue     'macht blau

                .Font.Italic = True     'macht kursiv

                .Collapse wdCollapseEnd    'setzt die Suche hinter dem Fundort fort

            End With     'Eigenschaften für den gefunden Text erledigt

        Loop     'Schleife zu  Suche

    End With     ' Eigenschaften für den Suchbereich erledigt 

   

End Sub