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.
With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company.
Learn more about Allen...
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!