Liste des polices
Le
NGTB

Bonsoir,
Je cherche à récupérer via une macro Word (2003) la liste des polices
installées sur mon sysqtème (W in XP).
Comment puis-je faire ?
Je cherche à récupérer via une macro Word (2003) la liste des polices
installées sur mon sysqtème (W in XP).
Comment puis-je faire ?
Regardez dans la faq, faites la recherche avec "polices", différentes
solutions vous seront proposées.
http://faqword.fr
--
A+
Ce code trouvé dans l'aide Word devrait faire l'affaire :
***********************
Dim strFontDim intResponse As Integer
For Each strFont In FontNames
intResponse = MsgBox(Prompt:=strFont, Buttons:=vbOKCancel)
If intResponse = vbCancel Then Exit For
Next strFont**************************J'ai corrigé le code il contenait une
petite erreur
--
Heureux-oli
Si rien n'est mentionné pour le code, c'est que j'en suis l'auteur.
http://heureuxoli.developpez.com/
http://word.developpez.com/
http://marie-lebeau.heaj.be/
----------------------------------------------------------------------------------
"NGTB"
Merci à tous deux.
J'ai ainsi pu trouver mon bonheur.