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