Toggle Text hervorheben in Word

Der in Word vorhandene Textmarker lässt sich leider nicht mit einem Toggle bedienen. Wechselt man ins Menü FormatHervorheben oder verwendet die Symbolschaltfläche Textmarker, wird die vorher eingestellte Farbe verwendet. Will man die Hervorhebung wieder aufheben, muss man zunächst die Farbe auf »Keine« ändern und kann dann ausschalten.

Die folgende kleine Prozedur hebt markierten Text gelb hervor oder hebt die Markierung auf, falls der Text vorher markiert war – unabhängig davon, in welcher Farbe. Auch die Einstellung der Farbe in der Symbolleistenauswahl wird nicht beeinflusst. Man kann den Code mit einem → Shortcut versehen oder auf eine eigene → Schaltfläche auf einer Symbolleiste legen.


Sub MarkiertenTextHervorheben()  
' Toggle schaltet die Hervorhebung ein/aus, und zwar immer gelb,  
' unabhängig von der Default-Einstellung im Menü Format - Hervorheben
' © Schreibbüro Nora Richter

    If Not Selection.Type = wdSelectionNormal Then
        Application.StatusBar = "Es ist kein Text markiert!"
        Exit Sub  
    End If

    With Selection.Range
        If .HighlightColorIndex = wdAuto Then
            .HighlightColorIndex = wdYellow
        Else
            .HighlightColorIndex = wdAuto
        End If
    End With
    Selection.Collapse wdCollapseEnd
End Sub

Soll Text häufig in verschiedenen Farben hervorgehoben werden, können Sie die fertige → Textmarker-Symbolleiste verwenden, die alle Farben bequem bereithält.

Schreibbüro Richter, Georg-Schumann-Str. 8, 04105 Leipzig, Tel.: (03 41) 59 008 95