Microsoft Word | Unbenutzte Formatierungen entfernen
Wie oft passiert es, dann man Text aus einer anderen Quelle kopiert (meist von Webseiten aus dem Internet) und in ein bestehendes oder neues Dokument einfügt. Und plötzlich sind eine Vielzahl von neuen Formatvorlagen vorhanden.
Viele davon werden dabei nicht einmal verwendet:
![](http://blog.via-internet.de/wp-content/uploads/2021/06/image-6.png)
Um diese unnötigen Formatvorlagen zu entfernen kann man ein einfaches Makro verwenden:
In Word einfach ALT-F11 drücken (oder im Menu Entwicklertool
auf Makros
, und dann Bearbeiten
)
In der Projektansicht sollten dann mindestens zwei Dokumente geöfnet sein:
- die Formatvorlage Normal.dot
- das aktuelle Dokument, das sie gerade bearbeiten
Sollten Sie das nachfolgende Makro als hilfreiche empfinde und auch in neuen Dokumenten verwenden wollen, dann speichern Sie es einfach in der Formatvorlage Normal.dot ab.
Erstellen Sie hierzu unter dem Ordner Module
einfach ein neues Modul mit dem Namen Lib:
![](http://blog.via-internet.de/wp-content/uploads/2021/06/image-7.png)
Ändern Sie dann den Namen auf Lib
![]() | ![]() |
Danach fügen Sie im Editor das nachfolgende Makro ein:
![](http://blog.via-internet.de/wp-content/uploads/2021/06/image-10-700x238.png)
Public 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 If End With End If Next oStyle End Sub
Jetzt können Sie das Makro jederzeit aufrufen über Entwicklertools
/ Makros
/ Ausführen
![](http://blog.via-internet.de/wp-content/uploads/2021/06/image-11-700x248.png)