What's new
Photoshop Gurus Forum

Welcome to Photoshop Gurus forum. Register a free account today to become a member! It's completely free. Once signed in, you'll enjoy an ad-free experience and be able to participate on this site by adding your own topics and posts, as well as connect with other members through your own private inbox!

May be you would like to know this..


ljiljana

Guru
Messages
555
Likes
0
"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. "
__________________
 
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? ;\
 

Back
Top