Application.PortraitFontNames (Word)

Devuelve un objeto FontNames que incluye los nombres de todas las fuentes verticales disponibles.

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