Beschreibung

Wenn man in Word häufig Text temporär ausblendet, ist das folgende Makro äußerst hilfreich.
Markierter Text wird beim Ausführen des Makros ausgeblendet wenn er sichtbar ist bzw. eingeblendet wenn er unsichtbar ist.

Sourcecode

Public Sub TextAusblenden()
    ' Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.
    On Error GoTo NoDocumentOpen

    ' Falls keine Datei geöffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Prüfung, ob eine Datei geöffnet ist, wird über die Länge des Dateinamens des aktiven Dokuments durchgeführt.
    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen

    With Selection.Font
        ' Der Wert der "Text verstecken"-Option wird invertiert, d.h. ausgeblendeter (versteckter) Text wird sichtbar gemacht und sichtbarer Text wird ausgeblendet (versteckt).
        .Hidden = Not .Hidden
    End With

NoDocumentOpen:
End Sub