|
|
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 ]#$%" at 14 point, on it's own
line, for each font installed on my computer.
Thx!
|
|
There are lots of freeware and shareware font viewers out there.
Search Google. I use AMP Font Viewer,
http://www.ampsoft.net/utilities/FontViewer.php. It does just fine for
me.
Brian Bygland
"Noozer" <dont.spam[ at ]me.here> wrote in message
news:O9bqjk6pHHA.4772[ at ]TK2MSFTNGP04.phx.gbl...
[Quoted Text] > 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 ]#$%" at 14 point, on it's
> own line, for each font installed on my computer.
>
> Thx!
>
|
|
"Noozer" <dont.spam[ at ]me.here> wrote in message
news:O9bqjk6pHHA.4772[ at ]TK2MSFTNGP04.phx.gbl...
[Quoted Text] > 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 ]#$%" 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 ![ at ]#$% îáûéæ¢"
' 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[ at ]me.here> wrote in message
news:O9bqjk6pHHA.4772[ at ]TK2MSFTNGP04.phx.gbl...
[Quoted Text] > 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 ]#$%" at 14 point, on it's own
> line, for each font installed on my computer.
>
> Thx!
>
>
|
|
"Noozer" <dont.spam[ at ]me.here> wrote in message
news:O9bqjk6pHHA.4772[ at ]TK2MSFTNGP04.phx.gbl...
[Quoted Text] > 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 ]#$%" 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:
[Quoted Text] > "Noozer" <dont.spam[ at ]me.here> wrote in message > news:O9bqjk6pHHA.4772[ at ]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 ]#$%" 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
|
|
|