Hercules

"Ever wish you had a quick reference sheet for all those fonts you feel you simply have to have in your system? If you have any
version of Microsoft Word 6.0 or later you're in luck. Just choose Tools > Macro > Visual Basic Editor and insert the following script:

Sub ListFonts()
'Speeds macro processing and suppresses display.
Application.ScreenUpdating = False
Documents.Add Template:="normal"
For Each aFont In PortraitFontNames
With Selection
.Font.Bold = True
.Font.Underline = True
.Font.Name = "times new roman"
.TypeText aFont
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
.Font.Bold = False
.Font.Underline = False
.Font.Name = aFont
.TypeText "abcdefghijklmnopqrstuvwxyz"
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
.TypeText "0123456789?$%&()[]*_-=+/<>"
.InsertParagraphAfter
.InsertParagraphAfter
.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
End With
Next aFont
Application.ScreenUpdating = True
End Sub

When you've finished, choose File > Close And Return To Microsoft Word.
Then choose Tools > Macro > Macros and run the script named FontSampler.
When you do, Word takes a few moments to run the script, leaving you
with a nicely formatted example of all of the fonts contained within
the System Folder.

? 2001 Element K Content LLC. All rights reserved. "
__________________

Blinky2004

That's a great script Lily, thanks.


One problem i had though... actually 2.

1st... you said 'insert'... insert where? I'm not familiar with using Word macros or creating them via scripting, so... of the 3 options under the Insert menu, which do we use to apply the script?

2nd... after guessing how to insert the script, i found a Macro named "ListFonts", which is the function name at the top of the script, and when i ran that, all i got was a pathetic 10-12 font list of fonts that all looked the same bar 2. They were the odd new fonts windows has with ethnic names and they're all pretty much sans-serif styles.

Help? ;\

Hercules

Hi Mark,

1. double click on the window doc. > left side bar
New window will open paste the code and close.
http://www.lzblack.com/font%20list.htm

2. I didn't have that problm so i don't know what to say.