Unbenutzte Formatvorlagen entfernen

Häufig erhält man Dokumente, in denen im Dialog Formatvorlagen verwalten (über Start – Dialog box launcher (kleiner Pfeil ↘ im Kästchen), im Arbeitsbereich Formatvorlagen – Button Formatvorlagen verwalten) eine Vielzahl alter »Leichen« angezeigt wird, was den Überblick über die im Dokument benötigten Formatvorlagen erschwert. Mit der folgenden Prozedur werden diejenigen, die im Dokument nicht verwendet werden, gelöscht.

Die in Word bereits default implementierten Formatvorlagen (wie z. B. Überschrift 1) lassen sich wegen der Eigenschaft »BuiltIn« auf diese Weise allerdings nicht entfernen. Sie werden zur Übersicht im Direktfenster dokumentiert. Mit jeder neuen Word-Version wächst die Zahl der bereits default implementierten Formatvorlagen an, die sich auch mit diesem Makro nicht löschen lassen.

Sub UnbenutzteFormatvorlagenEntfernen()  
' Unbenutzte Formatvorlagen werden aus dem Dokument entfernt.
' © Schreibbüro Nora Richter

    Dim styl As Word.Style

    On Error Resume Next
    For Each styl In ActiveDocument.Styles
        With ActiveDocument.Content.Find
            .ClearFormatting
            .Text = ""
            .Style = styl
            .Execute Format:=True
            If .Found = False Then
                styl.Delete
                If Err.Number = 4198 Then
                    Err.Clear
                    Debug.Print styl & " ist BuiltIn"
                End If
            End If
        End With
    Next styl
    On Error GoTo 0

End Sub  

Um die Eigenschaften aller Formatvorlagen (Styles) in einem Dokument zu ändern, kann die Schleife im Beispiel → Schleife durch alle Formatvorlagen eines Dokuments benutzt werden.

So ordnen Sie dem Makro eine Schaltfläche auf einer Symbolleiste oder einen Shortcut zu: → Tutorial: VBA-Code für Makro einbringen und verwenden.