[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.