Lorsque vous travaillez avec un document pendant une longue période, ou lorsque vous héritez d’un document de quelqu’un d’autre, il est très possible qu’il contienne des styles qui ne sont plus utilisés. Vous voudrez peut-être vous débarrasser de ces styles, mais cela peut être dangereux pour le format de votre document si vous commencez à les supprimer sans savoir qu’ils ne sont vraiment pas utilisés.

C’est là qu’une macro est utile. Il peut rechercher rapidement dans un document pour voir si un style particulier est utilisé n’importe où. Si ce n’est pas le cas, le style peut être facilement supprimé. La macro suivante, DeleteUnusedStyles, fait exactement cela.

Sub DeleteUnusedStyles()

Dim oStyle As Style

For Each oStyle In ActiveDocument.Styles         'Only check out non-built-in styles         If oStyle.BuiltIn = False Then             With ActiveDocument.Content.Find                 .ClearFormatting                 .Style = oStyle.NameLocal                 .Execute FindText:="", Format:=True                 If .Found = False Then oStyle.Delete             End With         End If     Next oStyle End Sub

Notez que la macro ignore un style s’il s’agit d’un style intégré. En effet, la suppression d’un style intégré ne le supprime pas vraiment, mais réinitialise uniquement ce style à sa condition par défaut d’origine. En fait, Word n’autorise pas la suppression des styles intégrés d’un document. Même si le style intégré n’est plus utilisé, mais a déjà été utilisé dans le document, il apparaîtra toujours dans la liste déroulante des styles.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (1337) s’applique à Microsoft Word 97, 2000, 2002 et 2003.