Je cherche un bout de code pour effacer automatiquement
des styles non utilisés.
J'ai essayé cette syntaxe, mais cela ne marche pas.
Merci d'avance
Christian
Sub Effacement_styles()
Dim Style As Style
Dim Controle As Integer
For Each Style In ThisDocument.Styles
Controle = 0
If Left(Style.NameLocal, 2) = "SI" Then Controle = 1
If Left(Style.NameLocal, 2) = "CL" Then Controle = 1
If Left(Style.NameLocal, 2) = "Tm" Then Controle = 1
If Controle = 0 Then Style.Delete
Next
End Sub
