Recherche

Avec une macro :

 

Public Sub NettoyerStyles()
For Each oStyle In ActiveDocument.Styles
If Not oStyle.BuiltIn Then
With ActiveDocument.Content
.Find.ClearFormatting
.Find.Style = ActiveDocument.Styles(oStyle)
If Not .Find.Execute() Then
oStyle.Delete:   n = n + 1
End If
End With
End If
Next oStyle MsgBox Str(n) & " styles inutilisés supprimés !"
End Sub

 

NB : Pour supprimer manuellement plusieurs styles à la fois, voyez cet article.

Statistiques

France 76,0% France
Canada 7,9% Canada
États-Unis d'Amérique 4,6% États-Unis d'Amérique

Total:

66

Pays
018274374
Aujourd'hui: 14
Hier: 145
Cette semaine: 697
Semaine dernière: 783
Ce mois: 2.636