Re: [OT] Word Typefaces

["Alancc" <alan.cc@xxxxxxx>]

Thanks Doogie, works a treat. If it makes you feel better your not the
only
one working.

Alancc
----- Original Message -----
From: Doogie Brodie <ukhad@xxxxxxx>
To: <ukha_d@xxxxxxx>
Sent: Monday, May 06, 2002 12:26 PM
Subject: Re: [ukha_d] [OT] Word Typefaces


> 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.