|
Très premières versions de Microsoft Word contenaient une fonction qui a généré une liste imprimable de toutes les polices disponibles de ce programme. Cette fonctionnalité n'a pas été dans Word en défaut depuis de nombreuses années , mais il est possible d' utiliser la macro de Microsoft Office Word 2007 codage options pour ajouter vous-même. Il s'agit d'un peu de programmation Visual Basic, mais heureusement le site Web de Microsoft fournit prédéfinis de code VB pour faire exactement cela. Instructions
1 Sélectionnez l'onglet « Développeur ». Si vous ne le trouvez pas , cliquez sur le bouton Office , puis " Options Word ", puis " populaire", et cochez la case " Afficher l'onglet Développeur dans le ruban . "
2 Cliquez sur "Macros ". Tapez un nom pour votre macro - quelque chose comme " Liste des polices " serait approprié , mais vous pouvez l'appeler comme vous voulez. Sélectionnez " normal.dotm " des " Macros dans la" Liste de faire votre macro disponible quel que soit le document que vous éditez. Enfin , cliquez sur " Créer " pour ouvrir l'éditeur Visual Basic .
3 Copiez l'intégralité du code ci-dessous , en commençant par la ligne " ListFonts sub () " et se terminant par "End sous " et collez -le dans votre Visual Basic Editor : .
ListFonts sub ()
varFont As vitesses de traitement de macro Variant
' et supprime l'affichage
Application.ScreenUpdating = False
'Créer un nouveau document de
modèle Documents.Add : . =
"normal" ' boucle sur chaque police disponible
< p. > Pour chaque varFont En FontNames
Format sélection
' pour le nom de la police.
. Font.Name = " Times New Roman"
. Font.Bold = True
. Font.Underline = True
' Insérer le nom de la police .
. TypeText varFont
"Insérer un nouveau paragraphe après le . . . . Nom de la police
InsertParagraphAfter
" Déplacer vers le nouveau paragraphe
unité de MoveDown : = wdParagraph , Count : = 1, Extend : = wdMove
< Format p> ' pour l'exemple de la police.
. Font.Bold = False
. Font.Underline = False
. Font.Name = varFont
' Entrez exemple de texte ( caractères alphabétiques. )
. TypeText " abcdefghijklmnopqrstuvwxyz "
" Insérer un nouveau paragraphe .
. InsertParagraphAfter
' Move pour le nouveau paragraphe
unité de MoveDown : . . = wdParagraph , Count : = 1, Extend : . Insérer exemple text = wdMove
' ( . caractères numériques )
TypeText " 0123456789 ? $% & () [] * _- = + /<> "
' insérer deux nouveaux paragraphes et Descendre .
. InsertParagraphAfter
. InsertParagraphAfter
unité de MoveDown : . = wdParagraph , Count : = 1, Extend : = wdMove
End With
Suivant varFont
Application.ScreenUpdating = True Photos End Sub
Assurez-vous que ce code copié rend tout le contenu de votre macro - supprimer tout code qui était là au début. Cliquez sur les boutons " OK" pour terminer la création de votre macro
4 droit de cliquer sur la barre d'outils Accès rapide - . L'ensemble des icônes juste à droite du bouton Office qui comprend "Enregistrer »et« ouvert ». Cliquez sur « Personnaliser la barre d'outils Accès rapide. "
5 Sélectionnez « Macros » des « Choisir les commandes dans " menu déroulant , puis sélectionnez la macro que vous venez de faire à partir de la liste qui apparaît . Cliquez sur " Ajouter".
6 Cliquez sur "Modifier" pour sélectionner une image pour le bouton, puis cliquez sur "OK". Un nouveau bouton apparaît maintenant dans la barre d'outils Accès rapide , cliquez sur il va créer un nouveau document Word et de le remplir avec un échantillon de toutes les polices disponibles. Vous pouvez ensuite imprimer ce document comme vous le feriez pour tout autre .
|
