Schriften-Übersicht per Makro

Ich arbeite mit MS Word 95 und gehöre zu den Anwendern, die Spaß daran haben, Dokumente mit unterschiedlichen Schriften zu gestalten. Folglich haben sich mittlerweile unzählige Schriften auf meiner Platte angesammelt, so daß mir die Orientierung verlorengegangen ist. Jetzt suche ich nach einer bequemen Möglichkeit, mir eine Übersicht über meine Schriften zu verschaffen.

Das folgende WinWord-Makro hilft, den fehlenden Überblick in Ihrem Schriftenbestand wiederherzustellen. Erstellen Sie das abgedruckte Makro. Wenn Sie danach ein neues Dokument aufrufen und das Programm starten, erscheint eine Liste mit den Namen aller installierten Schriften inklusive Schriftmuster. (Laszlo Kreisz/pen)

Sub MAIN
Dim SchriftartenName$(ZählenSchriftarten())
For X = 1 To ZählenSchriftarten()
  SchriftartenName$(X) = Schriftart$(X)
  Einfügen "Name der Schrift:"
  Einfügen Schriftart$(X)
  EinfügenAbsatz
  Einfügen "Schrift-Muster: Hallo Welt!"
  EinfügenAbsatz
  ZeileOben 1
  EndeZeile 1
  ZeichenLinks 1, 1
  FormatZeichen .Schriftart = Schriftart$(X)
  ZeileUnten 1
  EinfügenAbsatz
Next
End Sub


(pen)