在较旧的Word版本中（较旧的版本，如Windows 2中的Word），有一项功能使您可以在系统上快速打印字体列表。不幸的是，情况已不再如此。但是，以下VBA宏将创建一个包含完整字体列表的文档，并按排序顺序：

Sub ListAllFonts()

Dim J As Integer Dim FontTable As Table 'Start off with a new document Set NewDoc = Documents.Add 'Add a table and set the table header Set FontTable = NewDoc.Tables.Add(Selection.Range, FontNames.Count + 1, 2)

With FontTable     .Borders.Enable = False     .Cell(1, 1).Range.Font.Name = "Arial"

.Cell(1, 1).Range.Font.Bold = 1     .Cell(1, 1).Range.InsertAfter "Font Name"

.Cell(1, 2).Range.Font.Name = "Arial"

.Cell(1, 2).Range.Font.Bold = 1     .Cell(1, 2).Range.InsertAfter "Font Example"

End With 'Go through all the fonts and add them to the table For J = 1 To FontNames.Count     With FontTable         .Cell(J + 1, 1).Range.Font.Name = "Arial"

.Cell(J + 1, 1).Range.Font.Size = 10         .Cell(J + 1, 1).Range.InsertAfter FontNames(J)

.Cell(J + 1, 2).Range.Font.Name = FontNames(J)

.Cell(J + 1, 2).Range.Font.Size = 10         .Cell(J + 1, 2).Range.InsertAfter "ABCDEFG abcdefg 1234567890"

End With Next J FontTable.Sort SortOrder:=wdSortOrderAscending End Sub

宏运行完毕后，您将获得系统的完整字体列表。然后，您可以打印出来并在使用Word时将其放在方便的位置。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（405）适用于Microsoft Word 97、2000、2002和2003。您可以找到Word（Word 2007）的功能区界面的本技巧版本。和更高版本）在这里：

打印字体列表。