Noozer said:
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
