dionys0s
XLDnaute Impliqué
Bonjour le forum,
Je souhaite rédiger une procédure qui parcourt toutes les polices installées, et pour chacune de ces polices, qui parcourt tous les styles disponibles. Et ces styles ne sont pas forcément "Normal", "Italique", "Gras" et "Gras italique".
La police "Times New Roman" a les styles "Normal", "Italique", "Gras" et "Gras italique"
Mais la police "Lucida Sans Typewriter" a les styles "Normal", "Oblique", "Gras" et "Gras Oblique"
La police "Segoe UI Black" n'a que les styles "Normal" et "Italique"
La police "Perpetua Titling MT" a les styles "Maigre", "Maigre italique", "Gras" et "Gras italique"
Et on peut avoir des trucs carrément exotiques, avec les variations de la police "Bahnschrift" :
Je sais déjà comment parcourir la liste des polices. Soit avec :
Soit avec :
Maintenant j'aimerais avoir accès aux styles spécifique de chaque police. Et si possible, le Name (a priori en anglais), et non le LocalName.
Je ne veux pas forcément qu'on me fasse tout le boulot, juste être mis sur la voie, si cette voie existe.
D'avance, merci pour votre aide
Je souhaite rédiger une procédure qui parcourt toutes les polices installées, et pour chacune de ces polices, qui parcourt tous les styles disponibles. Et ces styles ne sont pas forcément "Normal", "Italique", "Gras" et "Gras italique".
La police "Times New Roman" a les styles "Normal", "Italique", "Gras" et "Gras italique"
Mais la police "Lucida Sans Typewriter" a les styles "Normal", "Oblique", "Gras" et "Gras Oblique"
La police "Segoe UI Black" n'a que les styles "Normal" et "Italique"
La police "Perpetua Titling MT" a les styles "Maigre", "Maigre italique", "Gras" et "Gras italique"
Et on peut avoir des trucs carrément exotiques, avec les variations de la police "Bahnschrift" :
Je sais déjà comment parcourir la liste des polices. Soit avec :
VB:
With VBA.CreateObject("Word.Application")
For Each vntFont In .FontNames
' pour chaque style de la police vntFont
Next vntFont
Call .Quit
End With
Soit avec :
Code:
Application.CommandBars("Formatting").FindControl(ID:=1728)
Maintenant j'aimerais avoir accès aux styles spécifique de chaque police. Et si possible, le Name (a priori en anglais), et non le LocalName.
Je ne veux pas forcément qu'on me fasse tout le boulot, juste être mis sur la voie, si cette voie existe.
D'avance, merci pour votre aide