Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

Avec une macro :

 

Public Sub NettoyerStyles()
'Macro écrite par anacoluthe
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

Aujourd'hui48
Hier1471
Cette semaine48
Ce mois40293
Total depuis 200410830827

6
visiteurs actuellement en ligne