clipped from: word.mvps.org   

Print samples of every font on your system

It used to be simple to do this -- the macro was so simple you could just type it every time you needed it.  However, due to a bug in the fonts mechanism of Word 2003 the macro becomes unnecessarily complex to write.  It appears that the built-in FontNames collection is not correctly defined: the data type of the collection index and its content seem to be mismatched.  The following macro works (laboriously) around this.  Note:  This macro is not compatible with Mac Word.  It will run, but Word may produce errors.

Sub FontSamples()

  ' Samples all fonts installed

  ' Macro written 31 March 2006 by John McGhie
  Const
SampleText
As String
"the quick brown fox jumps over the lazy dog."
=
_
" THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0 1 2 3 4 5 6 7 8 9"
Dim
i
As Long
' Make our own array because FontNames is FUBARed
Dim
AllFonts()
As String
  Dim
StyDoc
As
Document
StyDoc = Application.Documents.Add
' Resize the array the way we want it (in case the user has an Option Base set)