Word vous permet de créer des styles pour définir comment le texte de votre document doit apparaître. Outre une liste complète des styles intégrés, Word vous permet de créer tous les styles personnalisés que vous souhaitez. Vous pouvez ultérieurement imprimer une feuille de style pour votre document, comme décrit dans d’autres numéros de WordTips.

Que faire si vous voulez une liste de styles personnalisés uniquement? Word n’inclut pas de fonctionnalité qui vous permet de distinguer les styles inclus dans une impression de feuille de style. Si vous souhaitez une liste de styles personnalisés utilisés dans un document, vous pouvez en créer un à l’aide d’une macro. La macro suivante parcourt tous les styles et compile une liste de ceux qui répondent aux deux critères (personnalisés et utilisés): vous pouvez également lire la propriété ActivePrinter

Sub PrintCustomStyles()

Dim docThis As Document     Dim styItem As Style     Dim sUserDef(499) As String     Dim iStyleCount As Integer     Dim J As Integer

' Ref the active document     Set docThis = ActiveDocument

iStyleCount = 0     For Each styItem In docThis.Styles         'see if being used         If styItem.InUse Then             'make sure not built in             If Not styItem.BuiltIn Then                 iStyleCount = iStyleCount + 1                 sUserDef(iStyleCount) = styItem.NameLocal             End If         End If     Next styItem

If iStyleCount > 0 Then         ' Create the output document         Documents.Add

Selection.TypeText "User-defined Styles In Use"

Selection.TypeParagraph         For J = 1 To iStyleCount             Selection.TypeText sUserDef(J)

Selection.TypeParagraph         Next J         Selection.TypeParagraph         Selection.TypeParagraph     Else         MsgBox "No custom styles in use."

End If End Sub

N’oubliez pas qu’il existe une différence entre les «styles personnalisés» et les «styles personnalisés». (Un style intégré peut être un style personnalisé, si vous modifiez les caractéristiques par défaut du style.) Cette macro imprime une liste de styles personnalisés; il ignore complètement les styles que Word considère comme intégrés.

_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 (8339) s’applique à Microsoft Word 2007, 2010 et 2013.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu de Word ici:

lien: / word-Printing_a_List_of_Custom_Styles [Impression d’une liste de styles personnalisés].