[Word] Supprimer les styles inutilisés

Mon document Word possède des styles parasite que je souhaite supprimer.

• Dans le menu « Développeur » de Word, on ouvre la fenêtre « Visual Basic ».
• On créer une nouvelle fonction :

Public Sub CleanStyles()
    Dim stylesDeleted
    Dim oStyle
    
    stylesDeleted = 0
    For Each oStyle In ActiveDocument.Styles
        If Not oStyle.BuiltIn Then
            With ActiveDocument.Content.Find
                .ClearFormatting
                .Style = oStyle.NameLocal
                .Execute FindText:="", Format:=True
                If .Found = Flase Then
                    oStyle.Delete
                    stylesDeleted = stylesDeleted + 1
                End If
            End With
        End If
    Next oStyle
    MsgBox Str(stylesDeleted) & " styles deleted"
End Sub

• On exécute cette fonction.
• On supprime le code (pour ne pas être obligé de sauvegarder dans un format qui gère les macros).

On ne supprime pas les styles « BuiltIn », car en réalité c’est impossible. Cette action ne les supprime pas, mais se contente de les remettre dans leur style par défaut.