Liste installierter Schriftarten mit Beispielen erzeugen

Sie möchten eine Liste anlegen, die sämtliche Zeichen aller auf Ihrem System installierten Schriftarten enthält. Die manuelle Auswahl und Eingabe der Muster wollen Sie per Makro automatisieren.

Klicken Sie in Word auf »Extras | Makro | Makros«, geben Sie als Makronamen zum Beispiel »Schriftliste« ein und klicken Sie auf »Erstellen«. Kopieren Sie folgende Anweisungen von der Heft-CD (CHIP-Code praxis07) in den Editor:

Sub Schriftliste()

Dim Schrift As Variant

Application.ScreenUpdating = False

Documents.Add Template:="normal"

For Each Schrift In FontNames

   With Selection

      .Font.Name = "times new roman"

      .Font.Bold = True

      .Font.Underline = True

      .TypeText Schrift

      .InsertParagraphAfter

      .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove

      .Font.Bold = False

      .Font.Underline = False

      .Font.Name = Schrift

      .TypeText "abcdefghijklmnopqrstuvwxyz-äöüß"

      .InsertParagraphAfter

      .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove

      .TypeText "0123456789?$%&()[]*_-=+/<>"

      .InsertParagraphAfter

      .InsertParagraphAfter

      .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove

   End With

Next Schrift

Application.ScreenUpdating = True

End Sub
Beenden Sie die Eingabe mit »Datei | Schließen und zurück zu Microsoft Word«. Klicken Sie auf »Extras | Makro | Makros«. Markieren Sie das Makro »Schriftliste« und wählen Sie »Ausführen«. In wenigen Sekunden hat Word ein neues Dokument mit der gewünschten Schriftartenliste zusammengestellt.