Um alle auf dem Rechner installierten Schriftarten alphabetisch sortiert ansehen (und ausdrucken) zu können, muss folgendes Makro bei WinWord eingegeben werden:
Sub MAIN
DateiNeuStandard
S$ = ""
For I = 32 to 255
S$ = S$ + Chr$(I)
Next
FormatAbsatz .EinzugLinks = "2,5 cm", .ErstzeilenEinzug = "-2,5 cm"
Schriftgrad 12
For I = 1 to ZählenSchriftarten()
Schriftart "Arial"
Einfügen Schriftart$(I)
Schriftart Schriftart$(I)
Einfügen Chr$(12)+S$
EinfügenAbsatz
Next
BearbeitenAllesMarkieren
TabelleSortieren .SortSchlüssel = "Absätze"
End Sub
Achtung: Die Erstellung der Font-Liste dauert je nach installierten Schriftarten einige Zeit, da das Makro zunächst alle installierten Schriftarten einlesen, dann alles markieren und schließlich noch alles alphabetisch sortieren muss. Während dieser Zeit nichts am PC machen! Um das Makro als Symbol zu hinterlegen, siehe WinWord-Tipp 006 b, c, e und g.