Printing a Font List with WordBasic

In older versions of Word, there used to be a feature that allowed you to quickly print a list of fonts on your system. Unfortunately, that is no longer the case. The following WordBasic macro, however, will create a document that contains a complete font list, in sorted order.

Sub MAIN
FileNewDefault
Font "Arial", 10
FormatTabs .Position = "2 in", .Align = 0, .Set
FormatFont .Bold = 1, .Underline = 1
Insert "Font Name"
Insert Chr$(9)
Insert "Font Example"
FormatFont .Bold = 0, .Underline = 0
InsertPara
For J = 1 To CountFonts()
   Insert Font$(J)
   Insert Chr$(9)
   Font Font$(J), 10
   Insert "ABCDEFG abcdefg 1234567890"
   Font "Arial", 10
   InsertPara
Next J
StartOfDocument 1
LineDown 1, 1
TableSort .DontSortHdr = 0, .FieldNum = "Paragraphs", _
   .Type = 0, .Order = 0, .FieldNum2 = "", .Type2 = 0, _
    .Order2 = 0, .FieldNum3 = "", .Type3 = 0, .Order3 = 0, _
	.Separator = 0, .SortColumn = 0, .CaseSensitive = 0
LineUp 1
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.