011 Schriftarten alphabetisch sortiert ansehen

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.

Zurück zur vorherigen Seite

Zurück zur Titelseite