Introduction

À chaque fois que je travail en graphisme et que je dois ajouter du texte à une image, je me retrouve toujours avec le même problème: “Comment faire pour identifier rapidement la meilleure police pour mon affiche ?”

Je crois maintenant avoir finalement trouver la solution à ce problème.

Voici un script pour Microsoft Word qui permet de générer n’importe quelle exemple de texte avec toutes les polices de votre ordinateur.

Comment ça fonctionne ?

Il suffit d’ouvrir Microsoft Word et d’exécuter le script téléchargeable. Celui-ci produira un document d’environ 65 pages avec votre exemple de texte dans toutes les polices disponibles.

Fonctionnalités

La liste suivante décrit les fonctionnalités du script:

• Détecte toutes les polices installées du système.
• Donne un exemple de tous les styles pour chacune des polices soit: Normal, Italique, Gras et Gras Italique.
• Supporte vos propre exemples de texte. Si omis, le pangramme “The quick brown fox jumps over the lazy dog” est utilisé, soit l’équivalent anglophone de “Voix ambiguë d’un cœur qui, au zéphyr, préfère les jattes de kiwis”.

Limitations

Le script a quelques limitations. Celles-ci sont plus bas:

Possibilité de doublons

Certaines police ne sont pas disponibles sous certain style. Par exemple, la police Wingdings n’offre pas de style Gras (bien que le style Italique soit disponible).

Malheureusement, le script ne permet pas de détecter les styles qui ne sont pas disponibles et affichera donc plusieurs fois le même résultats.

Installation

Le script peut-être utilisé de deux façons. Les sections suivantes expliquent chacune d’elle.

Télécharger le script

Télécharger le script sur votre ordinateur en utilisant le lien suivant

[ MsWordListInstalledFont.bas](http://www.end2endzone.com/download/2339/ "Version 1.0").

Procédez avec les étapes suivantes pour installer le module téléchargé:

• Ouvrir Microsoft Word.
• Naviguer au menu Affichage du ruban.
• Cliquer sur le bouton Macros pour ouvrir l’éditeur de macro Microsoft Visual Basic.
  
• Entrer un nom de macro bidon. Par exemple ‘police’.
• Cliquer sur le bouton Créer.
• Dans la fenêtre Projet, repérer les deux noeuds principaux soient Normal ou Project (Document1).
• Pour installer le script définitivement sur l’ordinateur, cliquer avec le bouton droit de la souris sur le noeud Normal.
  Sinon, pour installer le script uniquement dans ce fichier Word (*.docx), cliquer sur le noeud Project (Document1).
• Sélectionner l’option Importer un fichier…
• Naviguer jusqu’à votre fichier téléchargé, sélectionnez-le et cliquer sur le bouton Ouvrir.

  <p id="caption-attachment-2355" class="wp-caption-text">
    ListInstalledFonts - Module installé sous Normal
  </p>
</div>

* Cliquer sur le l'icône de sauvegarde ( [![microsoft-word-save-icon](http://www.end2endzone.com/wp-content/uploads/2016/12/Microsoft-Word-Save-icon.jpg)](http://www.end2endzone.com/wp-content/uploads/2016/12/Microsoft-Word-Save-icon.jpg) ) pour sauvegarder le nouveau module.
* Fermer l'éditeur de macro Microsoft Visual Basic.</ol> 

Le module est maintenant installé sur le système.

<h2>
  Copier coller le script
</h2>

Certain fureteur ou antivirus ne permettent pas le téléchargement de module Microsoft Word (*.bas). L'option de téléchargement du module n'est donc pas possible. Dans ce cas, l'option copier-coller doit être utilisé.

Pour ce faire, copier le code suivant dans le presse-papier :

  1Attribute VB_Name = "ListInstalledFont"
  2Option Explicit
  3
  4Public Sub SetupColumnsPerPage(numColumns As Integer)
  5    'Define numColumns columns per page
  6    With Selection.PageSetup.TextColumns
  7        .SetCount numColumns:=numColumns
  8        .EvenlySpaced = True
  9        .LineBetween = False
 10    End With
 11End Sub
 12
 13Public Sub ClearDocumentContent()
 14    'Clear the current document
 15    Selection.WholeStory
 16    Selection.Delete Unit:=wdCharacter, Count:=1
 17End Sub
 18
 19Public Sub SetupThinMargin()
 20    With Selection.PageSetup
 21        .LineNumbering.Active = False
 22        .Orientation = wdOrientPortrait
 23        .TopMargin = CentimetersToPoints(1.27)
 24        .BottomMargin = CentimetersToPoints(1.27)
 25        .LeftMargin = CentimetersToPoints(1.27)
 26        .RightMargin = CentimetersToPoints(1.27)
 27        .Gutter = CentimetersToPoints(0)
 28        .HeaderDistance = CentimetersToPoints(1.25)
 29        .FooterDistance = CentimetersToPoints(1.25)
 30        .PageWidth = CentimetersToPoints(21.59)
 31        .PageHeight = CentimetersToPoints(27.94)
 32        .FirstPageTray = wdPrinterDefaultBin
 33        .OtherPagesTray = wdPrinterDefaultBin
 34        .SectionStart = wdSectionNewPage
 35        .OddAndEvenPagesHeaderFooter = False
 36        .DifferentFirstPageHeaderFooter = False
 37        .VerticalAlignment = wdAlignVerticalTop
 38        .SuppressEndnotes = False
 39        .MirrorMargins = False
 40        .TwoPagesOnOne = False
 41        .BookFoldPrinting = False
 42        .BookFoldRevPrinting = False
 43        .BookFoldPrintingSheets = 1
 44        .GutterPos = wdGutterPosLeft
 45    End With
 46End Sub
 47
 48Public Sub AddFontSample(fontIndex As Integer, fontName As String, text As String, boldFlag As Boolean, italicFlag As Boolean)
 49    With Selection
 50     'Show test string with selected font
 51     .Font.Name = fontName
 52     .Font.Size = 16
 53     .Font.bold = boldFlag
 54     .Font.italic = italicFlag
 55     .Font.Underline = wdUnderlineNone
 56     .TypeText text & Chr(11)
 57     
 58     Dim boldFontName As String
 59     Dim italicFontName As String
 60     If (boldFlag = True) Then
 61        boldFontName = ", Bold"
 62     End If
 63     If (italicFlag = True) Then
 64        italicFontName = ", Italic"
 65     End If
 66     
 67     'Show actual font name in document
 68     .Font.Name = "Times New Roman"
 69     .Font.Size = 9
 70     .Font.bold = False
 71     .Font.italic = False
 72     .Font.Underline = wdUnderlineSingle
 73     .TypeText "(" & fontName & boldFontName & italicFontName & ")"
 74     
 75     .InsertParagraphAfter
 76     .MoveDown Unit:=wdParagraph
 77    End With
 78
 79End Sub
 80
 81Public Sub ListInstalledFont()
 82    ClearDocumentContent
 83    SetupThinMargin
 84    SetupColumnsPerPage 2
 85
 86    Application.ScreenUpdating = False
 87
 88    Dim sampleText As String
 89    sampleText = InputBox("Enter some sample text")
 90    If sampleText = "" Then sampleText = "The quick brown fox jumps over the lazy dog"
 91
 92    'For each installed font
 93    Dim fontIndex As Integer
 94    For fontIndex = 1 To FontNames.Count
 95     Dim currentFontName As String
 96     currentFontName = FontNames(fontIndex)
 97     
 98     'Create sample text
 99     AddFontSample fontIndex, currentFontName, sampleText, False, False
100     AddFontSample fontIndex, currentFontName, sampleText, True, False
101     AddFontSample fontIndex, currentFontName, sampleText, True, True
102     AddFontSample fontIndex, currentFontName, sampleText, False, True
103    Next
104    
105    Application.ScreenUpdating = True
106End Sub


Ensuite, suivez les étapes suivante:

<ol>
  * Ouvrir _**Microsoft Word**_.
  * Naviguer au menu **_Affichage_** du **_ruban_**.
  * Cliquer sur le bouton _**Macros**_ pour ouvrir l'éditeur de macro Microsoft Visual Basic.<br /> [![](http://www.end2endzone.com/wp-content/uploads/2016/12/Microsoft-Word-Menu-Macros-du-Ruban.jpg)](http://www.end2endzone.com/wp-content/uploads/2016/12/Microsoft-Word-Menu-Macros-du-Ruban.jpg)
  * Entrer un nom de macro bidon. Par exemple '_police_'.
  * Cliquer sur le bouton Créer.
  * Dans la fenêtre Projet, repérer les deux noeuds principaux soient _**Normal**_ ou _**Project (Document1)**_.
  * Pour installer le script définitivement sur l'ordinateur, cliquer avec le bouton droit de la souris sur le noeud _**Normal**_.<br /> Sinon, pour installer le script **uniquement dans ce fichier Word** (*.docx), cliquer sur le noeud _**Project (Document1)**_.
  * Sélectionner l'option **_Insertion_**, puis **_Module_**.
  * Un nouveau module nommé **_Module1_** sera créé.
  * Dans la fenêtre _**Propriété - Module1**_, repérer la propriété **_Name_** du module dont la valeur est _**Module1**_.
  * Changer la valeur de la propriété pour la valeur _**ListInstalledFonts**_.
  * Coller le code dans la section de droite de l'éditeur. Le contenu du script devrait s'afficher.
  * Cliquer sur le l'icône de sauvegarde (&nbsp;[![microsoft-word-save-icon](http://www.end2endzone.com/wp-content/uploads/2016/12/Microsoft-Word-Save-icon.jpg)](http://www.end2endzone.com/wp-content/uploads/2016/12/Microsoft-Word-Save-icon.jpg)&nbsp;)&nbsp;pour sauvegarder le nouveau module.
  * Fermer l'éditeur de macro Microsoft Visual Basic.
</ol>

Le module est maintenant installé sur le système.

<h1>
  Exécuter le script
</h1>

Procédez avec les étapes suivantes pour exécuter le module installé:

<ol>
  * Ouvrir _**Microsoft Word**_.
  * Naviguer au menu _**Affichage**_ du _**ruban**_.
  * Cliquer sur le bouton _**Macros**_. L'éditeur de macro Microsoft Visual Basic s’ouvrira.
  <li>
    Sélectionner la macro _**ListInstalledFonts**_. <p>
      <div id="attachment_2357" style="width: 560px" class="wp-caption alignnone">
        [![Éditeur de macro Microsoft Word - Macro ListInstalledFonts sélectionnée](http://www.end2endzone.com/wp-content/uploads/2016/12/Éditeur-de-macro-Microsoft-Word-Macro-ListInstalledFonts-sélectionnée.jpg)](http://www.end2endzone.com/wp-content/uploads/2016/12/Éditeur-de-macro-Microsoft-Word-Macro-ListInstalledFonts-sélectionnée.jpg)
        
        <p id="caption-attachment-2357" class="wp-caption-text">
          Éditeur de macro Microsoft Word - Macro ListInstalledFonts sélectionnée
        </p>
      </div>

      * Cliquer sur le bouton Exécuter pour lancer l'exécution du script.
      <li>
        La fenêtre suivante s'ouvrira: <p>
          <div id="attachment_2354" style="width: 383px" class="wp-caption alignnone">
            [![ListInstalledFonts - Sélection d'un exemple de texte](http://www.end2endzone.com/wp-content/uploads/2016/12/ListInstalledFonts-Sélection-dun-exemple-de-texte.jpg)](http://www.end2endzone.com/wp-content/uploads/2016/12/ListInstalledFonts-Sélection-dun-exemple-de-texte.jpg)
            
            <p id="caption-attachment-2354" class="wp-caption-text">
              ListInstalledFonts - Sélection d'un exemple de texte
            </p>
          </div>

          * Entrer un exemple de texte puis cliquer sur le bouton OK. Laissez le champ vide et cliquer sur le bouton OK pour utiliser le pangramme anglophone "_The quick brown fox jumps over the lazy dog_".
          * Patientez environ 30 secondes pendant l'exécution du script.</ol> 
          
          Le document sera complété avec votre exemple de texte pour chacune des polices installées sur votre ordinateur.
          
          <h2>
            Exemple
          </h2>
          
          Après l'exécution du script, vous obtiendrez un document complet:
          
          <p>
            <div id="attachment_2350" style="width: 863px" class="wp-caption alignnone">
              [![Exemple de d'affichage toutes les polices](http://www.end2endzone.com/wp-content/uploads/2016/12/Comment-affichier-une-liste-de-toutes-les-polices-dans-Microsoft-Word.jpg)](http://www.end2endzone.com/wp-content/uploads/2016/12/Comment-affichier-une-liste-de-toutes-les-polices-dans-Microsoft-Word.jpg)
              
              <p id="caption-attachment-2350" class="wp-caption-text">
                Exemple de d'affichage toutes les polices
              </p>
            </div>
          </p>
          
          <h1>
            Licence
          </h1>
          
          

  Le script est disponible sous la licence LGPL. Seule la version anglophone de la licence est disponible.


          
          This library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 3.0 of the License, or (at your option) any later version.
          
          This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License (LGPL-3.0) for more details.
          
          You should have received a copy of the GNU Lesser General Public License along with this library; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
          
          **DISCLAIMER:**<br /> This software is furnished "as is", without technical support, and with no warranty, express or implied, as to its usefulness for any purpose.
          
          <h1>
            Téléchargement
          </h1>
          
          Vous pouvez télécharger le script en cliquant sur le lien de téléchargement suivant:
          
          <p>
            <p>
              [ Download "MsWordListInstalledFont.bas" MsWordListInstalledFont.bas - Downloaded 1068 times - 3 KB ](http://www.end2endzone.com/download/2339/)
            </p>
          </p>