See all fonts installed on the PC?

"Noozer" <dont.spam.TakeThisOut@me.here> wrote in message
news:O9bqjk6pHHA.4772@TK2MSFTNGP04.phx.gbl...
> Is there a macro/etc. that I can use to preview all the fonts currently
> installed on my PC?
>
> Basically, I want "ABCDEF ghijklm 12345 !@#$%" at 14 point, on it's own
> line, for each font installed on my computer.

Once I put the right stuff into Google I found lots of examples... Here's
the macro that I'm using:

Sub ListFonts()
'
' ListFonts Macro

Dim varFont As Variant

' Speeds macro processing and suppresses display.
Application.ScreenUpdating = False

' Create new document.
Documents.Add Template:="normal"

' Loop through each available font.
For Each varFont In FontNames
With Selection
' Format for name of font.
.Font.Size = 11
.ParagraphFormat.LineUnitAfter = 0.5
.Font.Name = "Arial Narrow"
.Font.Bold = True
.Font.Underline = True
' Insert Font name.
.TypeText varFont

'Format for the font example.
.Font.Bold = False
.Font.Underline = False
.TypeText ": "

.Font.Name = varFont

' Enter example text(Alphabetic characters.)
.TypeText "ABCDE fghij 12345 !@#$% îáûéæ¢"

' Insert a new paragraph.
.InsertParagraphAfter
' Move to the new paragraph.
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove

End With

Next varFont
Application.ScreenUpdating = True

End Sub

See http://word.mvps.org/FAQs/Formatting/FontSampleGenerator.htm

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"Noozer" <dont.spam.RemoveThis@me.here> wrote in message
news:O9bqjk6pHHA.4772@TK2MSFTNGP04.phx.gbl...
> Is there a macro/etc. that I can use to preview all the fonts currently
> installed on my PC?
>
> Basically, I want "ABCDEF ghijklm 12345 !@#$%" at 14 point, on it's own
> line, for each font installed on my computer.
>
> Thx!
>
>

"Noozer" <dont.spam.DeleteThis@me.here> wrote in message
news:O9bqjk6pHHA.4772@TK2MSFTNGP04.phx.gbl...
> Is there a macro/etc. that I can use to preview all the fonts currently
> installed on my PC?
>
> Basically, I want "ABCDEF ghijklm 12345 !@#$%" at 14 point, on it's own
> line, for each font installed on my computer.
>
> Thx!

http://www.download.com/The-Font-Thing/3000-2316_4-1519711.html

peter wrote:
> "Noozer" <dont.spam.TakeThisOut@me.here> wrote in message
> news:O9bqjk6pHHA.4772@TK2MSFTNGP04.phx.gbl...
>
>>Is there a macro/etc. that I can use to preview all the fonts currently
>>installed on my PC?
>>
>>Basically, I want "ABCDEF ghijklm 12345 !@#$%" at 14 point, on it's own
>>line, for each font installed on my computer.
>>
>>Thx!
>
>
> http://www.download.com/The-Font-Thing/3000-2316_4-1519711.html
>


The-Font-Thing will NOT do this. It only works with Truetype fonts,
neither OpenType nor Type 1 are supported. Further, it is a version
"0.8" that hasn't been upgraded, modified, or corrected in over eight
years. Sue did a fine job, but abandoned it half-done. What it does,
it does very well.

There are dozens of up-to-date and fully functional font
viewer/managers, including freeware, shareware, and fully commercial
products.

There's Printers Apprentice, X-Fonter, FontSuit, Typograf (getting a
little long in the tooth itself), and many more.

- Character