Passer au contenu

Comment obtenir la liste des polices de caractères installées dans Windows ?

Solution : en écrivant une macro en VBA.

Sous Windows, il n’existe pas de fonction pour imprimer la liste de toutes les polices de caractères installées sur le système. Si vous disposez de Word, vous pouvez écrire une macro qui affiche la liste des fontes.
Pour cela, cliquez sur le menu Outils et choisissez successivement les commandes Macro et Visual Basic Editor. Optez pour la commande Module du menu Insertion. Recopiez le listing ci-dessous. Cliquez sur l’icône Enregistrer représentant une disquette, dans la barre d’outils, puis optez pour la commande Fermer et retourner à Microsoft Word du menu Fichier.Ce programme crée un nouveau document dans lequel il insère un exemple de texte auquel il affecte une police de caractères, puis le nom de cette dernière, le tout sur une même ligne. Pour lancer ListePolicesInstallées, appuyez sur la combinaison de touches +. Sélectionnez ListePolicesInstallées. Validez par un clic sur le bouton [Exécuter].Ensuite, cliquez sur licône Aperçu avant Impression. Ajustez éventuellement les options de mise en page, telles que les marges ou les dimensions de la feuille et imprimez le document via la commande Imprimer du menu Fichier.Listing :
ub ListePolicesInstallées()
Documents.Add
For Each PolicesCar In FontNames
With Selection
.InsertAfter “Ex : servez un whisky au juge blond qui fume la pipe”
.Font.Name = PolicesCar
.Font.Size = 10
.InsertAfter vbTab & PolicesCar & vbCrLf
.MoveStartUntil vbTab
.Font.Name = “Arial”
.MoveDown wdParagraph, 1
End With
Next
End Sub

🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.


Filigrane Press