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:

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:

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`

<figure class="wp-block-image size-large">![](http://blog.via-internet.de/wp-content/uploads/2021/06/image-11-700x248.png)</figure>