Application.PortraitFontNames (Word)

Renvoie un objet FontNames qui inclut les noms de toutes les polices de type portrait disponibles.

For Each aFont In PortraitFontNames 
 With Selection 
 .Collapse Direction:=wdCollapseEnd 
 .InsertAfter aFont 
 .InsertParagraphAfter 
 .Collapse Direction:=wdCollapseEnd 
 End With 
Next aFont