Print a list of fonts - Word 2003 1

[BlueHorizon]

Hi all,

Is there was a way to print a list of fonts from Word 2003 so I can have printed reference for other programs, i.e., Acrobat.

Anyone know how to do this?

You're the best!!

Best,
Blue Horizon

http://www.bluehorizontraining.com

 

[TonyJollans]

Hi Kathy,

If you just want a list of fonts, this will do it:

[blue]Sub ListFonts()
    Documents.Add
    For Each Font In FontNames
        ActiveDocument.Range.InsertAfter Font & vbNewLine
    Next
End Sub[/blue]

If you want something in each font it is, obviously, a little more complex.

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[

 

[BlueHorizon]

Hi Tony,

Thanks for your response. Will this show what each font looks like? That's what I'm needing....

Thanks,
Kathy

Best,
Blue Horizon

http://www.bluehorizontraining.com

 

[TonyJollans]

Hi Kathy,

Try this one instead, then ..

[blue]Sub ListFonts()
Documents.Add
For Each Font In FontNames
    Selection.Font.Name = Font
    Selection.TypeText Font
    Selection.TypeParagraph
Next
End Sub[/blue]

That shows the font name in the font - is that good enough?

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.
Excel VBA Training and more Help at VBAExpress[

 

[BlueHorizon]

Thanks, Tony!!

That's exactly what I needed! Star for you!

Kathy


Best,
Blue Horizon

http://www.bluehorizontraining.com