Results 1 to 2 of 2
  1. #1
    Guest

    Default Automatic font samples in Word

    Back in earlier times WORD 6 had a macro that would automatically print out samples of all the fonts on your PC

    Is there anything similar for WORD 97? (I even have a feeling that somebody at PC World wrote something similar but it didn't work)

    John
    Waihi

  2. #2
    Guest

    Default Re: Automatic font samples in Word

    The following macro will do as required.

    Sub ListFonts()

    ' ListFonts Macro
    ' Created by George Campbell, PC World Magazine
    Dim listFont As Variant
    Application.ScreenUpdating = False
    Documents.Add Template:='normal'
    For Each listFont In FontNames
    With Selection
    .Font.Name = 'Arial'
    .Font.Size = 12
    .TypeText listFont
    .TypeText Text:=Chr(11)
    .Font.Name = listFont
    .TypeText 'A B C D E F G H I J K L M N O P Q R S T U V W X Y Z'
    .TypeText Text:=Chr(11)
    .TypeText 'a b c d e f g h I j k l m n o p q r s t u v w x y z'
    .TypeText Text:=Chr(11)
    .TypeText '1 2 3 4 5 6 7 8 9 0 ! @ # $ % ^ & * ( ) + - _ = * / \ : ; ' ~ ` < , > . ? { } [ ] |'
    .TypeText Text:=Chr(11)
    .InsertParagraphAfter
    .MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
    End With
    Next listFont
    Selection.WholeStory
    Selection.Sort
    Selection.HomeKey Unit:=wdStory

    End Sub

    HTH

Similar Threads

  1. Word- Default Font
    By stevensaaron in forum PressF1
    Replies: 5
    Last Post: 16-11-2005, 08:19 PM
  2. Word 2000 Tahoma font missing
    By Kenny in forum PressF1
    Replies: 3
    Last Post: 04-05-2004, 05:39 PM
  3. Word 2000 Sample Font List Macro
    By Scouse in forum PressF1
    Replies: 3
    Last Post: 03-02-2004, 11:17 AM
  4. automatic disabling macros in MS Word and Excel 97
    By farnell_mark in forum PressF1
    Replies: 3
    Last Post: 27-07-2003, 12:10 PM
  5. word 97 automatic footer?
    By denise in forum PressF1
    Replies: 3
    Last Post: 01-08-2002, 06:14 PM

Posting Permissions

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