Wenn Sie längere Zeit mit einem Dokument arbeiten oder ein Dokument von einer anderen Person erben, ist es sehr wahrscheinlich, dass es Stile enthält, die nicht mehr verwendet werden. Möglicherweise möchten Sie diese Stile entfernen, dies kann jedoch für das Format Ihres Dokuments gefährlich sein, wenn Sie sie löschen, ohne zu wissen, dass sie wirklich nicht verwendet werden.

Hier bietet sich ein Makro an. Es kann schnell ein Dokument durchsuchen, um festzustellen, ob ein bestimmter Stil irgendwo verwendet wird. Ist dies nicht der Fall, kann der Stil leicht gelöscht werden. Das folgende Makro, DeleteUnusedStyles, macht genau das.

Sub DeleteUnusedStyles()

Dim oStyle As Style

For Each oStyle In ActiveDocument.Styles         'Only check out non-built-in styles         If oStyle.BuiltIn = False Then             With ActiveDocument.Content.Find                 .ClearFormatting                 .Style = oStyle.NameLocal                 .Execute FindText:="", Format:=True                 If .Found = False Then oStyle.Delete             End With         End If     Next oStyle End Sub

Beachten Sie, dass das Makro einen Stil ignoriert, wenn es sich um einen integrierten Stil handelt. Dies liegt daran, dass das Löschen eines integrierten Stils ihn nicht wirklich löscht, sondern nur auf seinen ursprünglichen Standardzustand zurücksetzt. In Word können integrierte Stile nicht aus einem Dokument gelöscht werden. Auch wenn der integrierte Stil nicht mehr verwendet wird, sondern einmal im Dokument verwendet wurde, wird er dennoch in der Dropdown-Liste Stile angezeigt.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die beliebteste Textverarbeitungssoftware der Welt.) Dieser Tipp (1337) gilt für Microsoft Word 97, 2000, 2002 und 2003.