The Netride - Smart Stuff - Creating a list of fonts installed on your computer

Using Word to list the fonts installed on your computer
Reference: PC World, October 1998, pp. 137-138

Start Word in Office 97
With a blank document on the screen, select Tools-Macro-Macros
In the Macros dialogue box, type ListFonts in the Macro Name field, type Lists All Available Fonts in the Description field, and then click Create.
The Microsoft Visual Basic window will open. After the Sub ListFonts() line and the two comment lines inserted by Word, but before the End Sub line, type the commands. (you can cut and paste the following lines. They do work!!)

Dim ListFont As Variant
    Application.ScreenUpdating = False
    Documents.Add Template:= "normal"
    For Each ListFont In FontNames
        With Selection
            .Font.Name = "Arial"
            .Font.Size = 12
            .TypeText ListFont
            .TypeText Text:=Chr(11)
            .Font.Name = ListFont
            .TypeText "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
            .TypeText Text:=Chr(11)
            .TypeText "abcdefghijklmnopqrstuvwxyz"
            .TypeText Text:=Chr(11)
            .TypeText "1234567890!@#$%^&*()"
            .TypeText Text:=Chr(11)
            .InsertParagraphAfter
            .MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
        End With
Next ListFont
Selection.WholeStory
Selection.Sort
Selection.HomeKey Unit:=wdStory

Select File-Save Normal to save the macro in the normal.dot template then select File- Close and Return to Microsoft Word.
To create the font list, select Tool-Macro-Macros, choose ListFonts in the Macro name list and click Run. Finally, save the list to your hard drive and print a copy for reference. Rerun the macro whenever you add or remove fonts from your system.

Please contact the netride with questions or comments.