Application.PortraitFontNames (Word)

Retorna um objeto FontNames que inclui os nomes de todas as fontes de retrato disponíveis.

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