Unbenutzte Formatvorlagen entfernen

Häufig erhält man Dokumente, in denen im Dialogfeld FormatFormatvorlagen und Formatierung selbst bei Aktivierung der Option Benutzte Formatvorlagen 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. Diese werden zur Übersicht im Direktfenster dokumentiert.


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
End Sub

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

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