print font examples (Word 2003)

Topic

New Reply

Is there a macro (or other method) of getting a printout of all of my fonts–one that shows actual examples of each font? I used to have a macro for this for Word 97, but can’t fnd t anymore, and am havng no luck in doing searches for it.

Reply | Quote

Replies

I found this lying around, and it still seems to work.

StuartR


Sub AllFonts()
Dim strBaseFont As String
Dim strFont As Variant

With Selection.ParagraphFormat
.Alignment = wdAlignParagraphLeft
.LeftIndent = 0
.RightIndent = 0
.SpaceBefore = 1
.SpaceAfter = 0
.LineSpacingRule = wdLineSpaceSingle
.WidowControl = True
.KeepTogether = True
.KeepWithNext = True
End With
strBaseFont = "Times New Roman"
For Each strFont In Application.FontNames
Selection.Font.Name = strBaseFont
Selection.TypeText strFont & vbCrLf
Selection.Font.Name = strFont
Selection.TypeText "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890" & vbCrLf
Selection.TypeText "The quick brown fox jumps over the lazy dog's back" & vbCrLf
Selection.TypeText "! @ #$ % ^ & *() _ + - = { } [ ] : ;?,./|~`" & vbCrLf
Selection.ParagraphFormat.KeepWithNext = False
Selection.TypeText vbCrLf
Selection.ParagraphFormat.KeepWithNext = True
Next strFont

End Sub


Reply | Quote

Here’s another macro (in the attached document).

Reply | Quote

What I have used for a long time is TypeRodent version 1.2, but I don’t have Word 2003, just Word 97.
It’s a template with a macro in it. Very convenient.
http://tatumweb.com/typerat/%5B/url%5D

Reply | Quote

thanks to all for the help. That gives me what I needed.

Reply | Quote