Dave aimerait avoir un moyen d’imprimer une feuille de style complète pour ses documents. Il sait qu’il peut choisir d’imprimer « Styles » dans la boîte de dialogue Imprimer, mais il préfère avoir une feuille de style qui montre les styles réels, tels que la couleur, la taille, la police, etc.

Malheureusement, une telle fonctionnalité n’existe pas dans Word. Vous pouvez cependant créer une feuille de style de votre choix en utilisant une macro. Par exemple, ce qui suit insérera, dans le document courant, les noms de tous les styles disponibles dans le document. Chaque nom de style est sur sa propre ligne (paragraphe) et est formaté à l’aide des différents styles.

Sub ListStyleNames()

Dim s As Style

For Each s In ActiveDocument.Styles         With Selection             .Style = s             .TypeText (s.NameLocal)

.TypeParagraph         End With     Next s End Sub

Une telle approche, bien que pratique pour une liste concise de styles, n’est pas beaucoup plus informative que ce qui peut être imprimé en utilisant la désignation «Styles» dans la boîte de dialogue Imprimer. Il fournit cependant une base sur laquelle on peut construire pour créer une feuille de style plus complète.

Le problème avec la création d’une feuille de style détaillée à l’aide de macros est que les styles peuvent contenir une tonne d’informations. Le modèle objet utilisé par Word (et accessible en VBA) devient rapidement assez complexe lors du test des styles pour voir ce qu’ils contiennent. Voici juste un exemple simple pour vous donner la saveur:

Sub SimpleStyleSheet()

Dim s As Style     Dim sOutput As String     Dim sTemp As String     Dim StyleTypes(4) As String

StyleTypes(1) = "Paragraph"

StyleTypes(2) = "Character"

StyleTypes(3) = "Table"

StyleTypes(4) = "List"



For Each s In ActiveDocument.Styles         sOutput = s.NameLocal & vbCrLf         sOutput = sOutput & "   Style type: " & StyleTypes(s.Type) & vbCrLf         sTemp = s.BaseStyle         If Len(sTemp) > 0 Then             sOutput = sOutput & "   Based on: " & s.BaseStyle & vbCrLf         End If         sOutput = sOutput & "   Font: " & s.Font.Name         sTemp = ""

If s.Font.Bold Then sTemp = sTemp & "Bold, "

If s.Font.Italic Then sTemp = sTemp & "Italic, "

If Len(sTemp) > 0 Then             sTemp = Left(sTemp, Len(sTemp) - 2)

sOutput = sOutput & " (" & sTemp & ")"

End If         sOutput = sOutput & vbCrLf & vbCrLf         Selection.TypeText (sOutput)

Next s End Sub

La seule chose que fait cette macro est de lister tous les styles, de quel type de style ils sont, s’ils sont basés sur un style différent (et si oui, quel est le nom de ce style), quelle police est utilisée par le style et si la police est en gras ou en italique. Quiconque connaît les styles comprendra immédiatement que ces quelques éléments ne sont qu’un petit échantillon de ce qui peut être défini dans un style. Vérifier tous les formats de style possibles et les imprimer dans la feuille de style rendrait la macro très longue, en effet.

Même dans ce cas, cette macro peut être utile car elle donne une idée de la façon de créer votre propre feuille de style. Il vous suffit de comprendre ce que vous voulez voir dans la feuille de style, puis d’ajouter le code de macro pour déterminer ces informations et les imprimer.

_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 (13365) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Printing_a_Full_Style_Sheet [Impression d’une feuille de style complète].