Results 1 to 5 of 5
  1. #1
    2 Star Lounger
    Join Date
    Mar 2001
    Posts
    114
    Thanks
    0
    Thanked 0 Times in 0 Posts

    print font examples (Word 2003)

    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.

  2. #2
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts

    Re: print font examples (Word 2003)

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

    StuartR

    <code>
    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
    </code>

  3. #3
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: print font examples (Word 2003)

    Here's another macro (in the attached document).
    Attached Files Attached Files

  4. #4
    2 Star Lounger
    Join Date
    Mar 2001
    Location
    California, USA
    Posts
    136
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: print font examples (Word 2003)

    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/

  5. #5
    2 Star Lounger
    Join Date
    Mar 2001
    Posts
    114
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: print font examples (Word 2003)

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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •