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.