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.
|