Member: isabellefaguy
Company name: Technophare

Resource person: Isabelle Faguy

Actions: Ajouter aux contactsEnvoyer un messageInvite to submit a quote



Do you enjoy reading the News and Tips? Subscribe:

August 26, 2010 - Advice and Strategy > Information Technology
Macro Word pour générer un échantillon des polices

Voici une macro qui insère dans un fichier au format Microsoft Office Word un échantillon de chacun des caractères (codes ASCII 20 à 255) de chacune des polices installées sur votre ordinateur (pourvu que Word arrive à utiliser ces polices).

ATTENTION : Enregistrez et fermez tous vos documents et fermez tous les autres logiciels avant d'exécuter la macro. L'exécution de cette macro peut prendre plusieurs minutes. Technophare a apporté le plus grand soin à la réalisation de cette macro. Cependant Technophare n'assume de responsabilité pour son utilisation et ne pourra en aucun cas être tenu pour responsable des préjudices ou dommages de quelque nature que ce soit pouvant résulter de son utilisation. Si vous ne savez pas comment insérer une macro dans un fichier Word, voyez cette page web : http://faqword.free.fr/anacoluthe1/vba_ana.htm

Sub EchantillonPolices()
Dim K As Integer 'compteur pour les codes ASCII
Dim J As Integer 'compteur pour les polices
Dim MonTexte As String 'chaîne de caractère à insérer
'Stopper temporairement le rafraîchissement de l'affichage pour accélérer l'exécution de la macro
Application.ScreenUpdating = False
'Faire une boucle pour chacune des polices que Word trouve
For J = 1 To FontNames.Count
With Selection
'Insérer un saut de paragraphe
.ParagraphFormat.KeepTogether = True 'Assure que tout l'échantillon est sur une seule page
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
'Mettre en forme le nom de la police
.Font.Name = "times new roman"
.Font.Bold = True
.Font.Underline = True
.Font.Size = 24
'Insérer le nom de la police
.TypeText FontNames(J)
'Mettre en forme l'échantillon
.Font.Bold = False
.Font.Underline = False
.Font.Size = 36
.Font.Name = FontNames(J)
'Faire une boucle pour chacun des caractères de la police (ASCII 20 à 255)
For K = 20 To 255
MonTexte = Chr(K) 'Chr converti le numéro ASCII en chaîne de caractère
'Insérer le caractère dans le document
.TypeText MonTexte
Next K
End With
Next J
'Redémarrer le rafraîchissement de l'affichage
Application.ScreenUpdating = True
End Sub




Views: 479 times     Send     Print
Partager : Facebook Facebook  Technorati Technorati  Bookmark Google Google  Digg! Diggs  Twitter Twitter   Delicious Del.icio.us 

Visit isabellefaguy's Profile
Consult all the News and Tips by isabellefaguy
View all the Solo Agent Advice and Strategy

 

Your answer Agentsolo.com members' log in

Your name:
Your e-mail address:



Send email alert for new comments