View Single Post
  #3   Report Post  
Posted to microsoft.public.word.docmanagement
Steve Yandl
 
Posts: n/a
Default How do I print a list of font names installed on my computer?

Sub FontNameList()
Dim vFontName As Variant

Documents.Add

For Each vFontName In FontNames
Selection.TypeText vFontName
Selection.TypeParagraph
Next vFontName

End Sub


Steve Yandl



"stargazer" wrote in message
...
I would like to print a list of NAMES ONLY of the fonts installed on my
computer. (I need to compare fonts between two computers and don't want
to
handwrite the names of all the fonts in the directory. I don't want
SAMPLES
of the fonts, just a LIST of the names. I can't figure out how to do it.