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