Fehlerhafte Makro-Aufzeichnung korrigieren

Sie haben ein Makro aufgezeichnet, das mit »Suchen und Ersetzen« nach kursivem Text sucht. Das Aufzeichnen hat auch geklappt. Trotzdem funktioniert das kleine Programm nicht richtig.

Während Word XP ein Makro aufzeichnet, kann es passieren, dass der Makrorecorder einzelne Formateinstellungen wie »kursiv« nicht korrekt aus dem Dialog »Suchen und Ersetzen« ausliest. Am besten korrigieren Sie diesen Fehler später direkt im Makro-Code.
Um das Makro aufzuzeichnen, starten Sie Word. Dann öffnen Sie den Befehl »Extras | Makro | Aufzeichnen«, geben dem Makro einen Namen und starten die Aufnahme mit »OK«. Es erscheint die Symbolleiste des Makrorecorders. Starten Sie den Befehl »Bearbeiten | Suchen«. Klicken Sie im Dialog »Suchen und Ersetzen« nacheinander auf die Schaltflächen »Erweitert« und »Format« und rufen Sie den Befehl »Zeichen« auf. Im Dialog »Zeichen suchen« markieren Sie in der mittleren Liste »Schriftschnitt«, klicken auf den Eintrag »kursiv« und auf »OK«. Sie können nun bei Bedarf weitere Einstellungen vornehmen und die Suche mit der Schaltfläche »Weitersuchen« starten. Nachdem Sie alle Aktionen durchgeführt haben, beenden Sie die Makro-Aufzeichnung mit einem Klick auf »Aufzeichnung beenden« (blaues Quadrat) in der Symbolleiste oder mit dem Menübefehl »Extras | Makro | Aufzeichnung beenden«.
Als nächstes bearbeiten Sie den Makro-Code. Rufen Sie den Befehl »Extras | Makro | Makros« auf, markieren Sie den Eintrag mit dem betreffenden Makronamen und klicken Sie auf »Bearbeiten«. Der VisualBasic-Editor öffnet sich und zeigt den Makro-Code an.
Sollte die Makro-Aufzeichnung nun tatsächlich nicht korrekt funktioniert haben, fehlt vor »With Selection.Find« die folgende Anweisung für die Einschränkung auf kursiven Text:

Selection.Find.Font.Italic = True

Damit das Makro den kursiven Text findet, fügen Sie diese Zeile in das Makro ein. Das komplette Makro sieht dann folgendermaßen aus:

Sub Kursiv_finden()



    Selection.Find.ClearFormatting

    Selection.Find.Replacement.ClearFormatting

    Selection.Find.Font.Italic = True

    With Selection.Find

      .Text = ôö

      .Replacement.Text = ôö

      .Forward = True

      .Wrap = wdFindContinue

      .Format = True

      .MatchCase = False

      .MatchWholeWord = False

      .MatchWildcards = False

      .MatchSoundsLike = False

      .MatchAllWordForms = False

    End With

    Selection.Find.Execute



End Sub