Re: [OT] Word Typefaces

[Doogie Brodie <ukhad@xxxxxxx>]

Alancc wrote:
> Does anyone know if its possible to print samples of the typefaces on
> Word without going through them all one at a time?

Seeing as I'm sitting in work on a sunny bank holiday..... :S

Open Word and hit Alt+F11 - This should open up the VBA IDE. Double 
click ThisDocument from the microsoft word objects branch of the project
tree. A blank window will pop up. Paste in the following:-

Sub PrintAllFontFaces
     For Each fn In Word.FontNames
         Selection.Font.Name =
fn
         Selection.TypeText
"The quick brown fox jumps over " & _
      "the lazy dog - " & fn
        
Selection.TypeParagraph
     Next fn
End Sub

Then press F5 to run..... it will cycle through each of the fonts and 
print quick brown fox with the font name written after it.

HTH

Doogie

Yahoo! Groups Sponsor

ADVERTISEMENT

For more information: http://www.automatedhome.co.uk
Post message: ukha_d@xxxxxxx 
Subscribe:  ukha_d-subscribe@xxxxxxx 
Unsubscribe:  ukha_d-unsubscribe@xxxxxxx 
List owner:  ukha_d-owner@xxxxxxx

Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.