Developer Blog

Tipps und Tricks für Entwickler und IT-Interessierte

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:

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:

Ändern Sie dann den Namen auf Lib

Danach fügen Sie im Editor das nachfolgende Makro ein:

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