Sehr frühe Versionen von Microsoft Word enthalten eine Funktion, die eine druckbare Liste der das gesamte Programm der verfügbaren Schriftarten generiert. Diese Funktionalität wurde in Word nicht in Verzug seit vielen Jahren , aber es ist möglich, Microsoft Office Word 2007 Makro- Programmierung Optionen zum Hinzufügen it yourself verwenden . Es geht ein wenig Visual Basic-Programmierung , aber zum Glück der Microsoft-Website bietet VB Code prewritten genau dies zu tun. Anleitung
1

Wählen Sie die Registerkarte "Entwicklertools" . Wenn Sie es nicht finden können , klicken Sie auf die Office-Schaltfläche und dann auf " Word-Optionen ", dann "Popular " und aktivieren Sie " Registerkarte 'Entwicklertools' in der Multifunktionsleiste. "
2

Klicken Sie auf " Makros ". Geben Sie einen Namen für Ihr Makro - so etwas wie "List Fonts" angemessen wäre , aber man kann es nennen, wie Sie wollen. Wählen Sie " normal.dotm " aus dem " Makros in "-Liste , um das Makro zur Verfügung , egal was Dokument, das Sie gerade bearbeiten . Klicken Sie abschließend auf "Erstellen" , um das Visual Basic -Editor.
3

Kopieren Sie die Gesamtheit der folgenden Code , beginnend mit der Zeile " Sub ListFonts ()" und endend mit "End Sub " und fügen Sie ihn in Ihren Visual Basic-Editor : .

Sub ListFonts () Dim

varFont As Variant

' Speeds Makro Verarbeitung und unterdrückt Display
< p > Application.ScreenUpdating = False

'Neues Dokument

Documents.Add Vorlage: . = "normal "

' Schleife durch jede verfügbare Schriftarten
< p . > For Each varFont In Fontnames

Selection

' Format für den Namen des Schriftart.

. Font.Name = " Times New Roman "

. Font.Bold = True

. Font.Underline = True

'Einfügen Font Namen.

. TypeText varFont

' einen neuen Absatz , nachdem die . . . . Font Name

InsertParagraphAfter

'Move auf den neuen Absatz

MoveDown Einheit : = wdParagraph , Count: = 1, Extend : = wdMove
< p> ' Format für die Schriftart Beispiel.

. Font.Bold = False

. Font.Underline = False

. Font.Name = varFont
< p > ' Geben Sie beispielsweise Text ( alphabetische Zeichen.)

. TypeText " abcdefghijklmnopqrstuvwxyz "

' einen neuen Absatz .

. InsertParagraphAfter

'Verschieben nach der neue Absatz

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

'Einfügen Beispiel Text ( . Numerische Zeichen )

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

' Legen Sie zwei neue Absätze und nach unten bewegen .

. InsertParagraphAfter

. . InsertParagraphAfter

MoveDown Einheit : = wdParagraph , Count: = 1, Extend : = wdMove

End With

Weiter varFont

Application.ScreenUpdating = True

End Sub