Anführungszeichen ins Makro

[d'r Bastler]

Moin Steffen!

Hier erst mal Dein neuer Code, der Farbig und Kursiv angeführt wird ("etwas" kommentiert):

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

Tja - und Du möchtest gerne lernen, das auch alles zu können? Warum denn nicht? Aber es fängt schon mit einem ersten Fehler an: Genaues Lesen ist gefragt!! Denn mein Vorschlag heißt nicht FarbigAusgeführt, sondern ... Angeführt, weil es um Text in Anführungsstrichen geht. VBA, wie auch Formeln in XL verzeihen keine Ungenauigkeiten, gibt aber auch viele Hilfestellungen, falls etwas mal nicht passt.

Dass ein Code so konkret kommentiert/erklärt wird, ist nicht aller Foren Sache. Auf den www.vbasteleien.de, die sich nicht als Snippet-Hilfe verstehen, wie z.B. hier oft zu sehen ist (UND VON MIR SEHR GESCHÄTZT!), gibt es solche Erläuterungen schon eher.  Schau einfach mal vorbei   Dort werden eher kleine bis große VBA-Ideen (also kaum Formeln, PQ usw.) diskutiert. 

  Unterschiedliche Foren = konstruktive Arbeitsteilung = gute Nachbarschaft! 

Schönes Wochenende! und ebensolche Grüße!

[hartmannsteffen]

Vielen Dank. Auch das funktioniert tadellos.