Application.PortraitFontNames (Word)

Gibt ein FontNames -Objekt zurück, das die Namen aller verfügbaren Hochformat Schriftarten enthält.

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