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 ?
Regardez dans la faq, faites la recherche avec "polices", différentes solutions vous seront proposées. http://faqword.fr
[ Cette réponse est faite sur le forum public Word : news://msnews.microsoft.com/microsoft.public.fr.word ]
-- A+
heureux-oli
Salut,
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/
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 ?
Salut,
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/
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/