In älteren Versionen von Word (viel älter wie in Word für Windows 2) gab es eine Funktion, mit der Sie schnell eine Liste von Schriftarten auf Ihrem System drucken konnten. Das ist leider nicht mehr der Fall. Sie können jedoch ziemlich einfach ein Makro erstellen, das eine solche Liste für Sie zusammenstellen kann:

Sub ListFontNames()

Dim J As Integer     Dim NewDoc As Document

' Create a new document     Set NewDoc = Documents.Add

' Add font names to document     For J = 1 To FontNames.Count         Selection.TypeText (FontNames(J))

Selection.TypeParagraph     Next J End Sub

Das Makro erstellt ein neues Dokument und durchläuft dann einfach die FontNames-Auflistung und fügt jeden Namen zum Dokument hinzu. Die Geschwindigkeit, mit der das Makro arbeitet, hängt davon ab, wie viele Schriftarten Sie auf Ihrem System installiert haben.

Wenn Sie etwas ausgefeilteres möchten, können Sie das folgende Makro verwenden. Es wird ein Dokument erstellt, aber dann werden alle Schriftnamen in eine Tabelle eingefügt. In der zweiten Spalte der Tabelle finden Sie ein formatiertes Beispiel für die Schriftart.

Sub FontExamples()

Dim J As Integer     Dim F As Integer     Dim sTemp As String     Dim sTest As String     Dim Continue As Integer     Dim rng As Range     Dim FontTable As Table     Dim NewDoc As Document

' Specify the sample text for second column     sTest = "ABCDEFG abcdefg 1234567890"



' Check to see if the user wants to proceed     F = FontNames.Count     sTemp = "There are " & F & " fonts on this system."

sTemp = sTemp & "Building the document may take quite a while."

sTemp = sTemp & "Do you want to continue?"

Continue = MsgBox(sTemp, vbYesNo, "Build Font List")



If Continue = vbYes Then         ' Put together a string that contains the table contents         sTemp = "Font Name" & vbTab & "Font Example"

For J = 1 To F             sTemp = sTemp & vbCr & FontNames(J) & vbTab & sTest         Next J

' Create a new document         Set NewDoc = Documents.Add

' Add string contents and convert to table         Set rng = Selection.Range         rng.Text = sTemp         Set FontTable = rng.ConvertToTable(Separator:=vbTab, _           AutoFitBehavior:=wdAutoFitFixed)



' Set general table properties         With FontTable             .Borders.Enable = False             .Range.Font.Name = "Arial"

.Range.Font.Size = 10             .Rows(1).Range.Font.Bold = True             .Rows(1).Range.Font.Size = 12         End With

' Go through the sample cells and format them         For J = 1 To F             FontTable.Cell(J + 1, 2).Range.Font.Name = FontNames(J)

Next J

' Sort the table         FontTable.Sort SortOrder:=wdSortOrderAscending     End If End Sub

Dieses Makro leistet einiges mehr als das vorherige. Die Tabelle selbst wird ziemlich schnell erstellt, aber es kann viel Zeit in Anspruch nehmen, jede der Beispielzellen zu durchlaufen und sie mit der entsprechenden Schriftart zu formatieren. Aus diesem Grund informiert Sie das Makro darüber, wie viele Schriftarten sich auf Ihrem System befinden, bevor Sie fortfahren.

Unabhängig davon, welches Makro Sie verwenden, erhalten Sie eine vollständige Schriftartenliste für Ihr System. Sie können es dann ausdrucken und griffbereit halten, wenn Sie mit Word arbeiten.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (4358) gilt für Microsoft Word 2007, 2010, 2013 und 2016. Eine Version dieses Tipps für die ältere Menüoberfläche von Word finden Sie hier: Drucken einer Schriftartenliste.