by Allen Wyatt
(last updated February 14, 2015)
In older versions of Word (much older, as in Word for Windows 2), there was a feature that allowed you to quickly print a list of fonts on your system. Unfortunately, that is no longer the case. The following VBA macro, however, will create a document that contains a complete font list, in sorted order:
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
Once the macro is through running, you will have a complete font list for your system. You can then print it out and keep it handy when you are working with Word.
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (405) applies to Microsoft Word 97, 2000, 2002, and 2003.
Create Custom Apps with VBA! Discover how to extend the capabilities of Office 2013 (Word, Excel, PowerPoint, Outlook, and Access) with VBA programming, using it for writing macros, automating Office applications, and creating custom applications. Check out Mastering VBA for Office 2013 today!
Word allows you to take full advantage of the capabilities of your printer. Accessing those capabilities is done through the ...Discover More
I often need to print only select pages of a document, rather than the whole thing. Word makes it easy to be judicious in ...Discover More
Want to print your document without all those footnotes included? It's not quite as easy as you might think, as this tip ...Discover More
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Got a version of Word that uses the menu interface (Word 97, Word 2000, Word 2002, or Word 2003)? This site is for you! If you use a later version of Word, visit our WordTips site focusing on the ribbon interface.