PDA

View Full Version : Word 2000 Sample Font List Macro



Scouse
02-02-2004, 09:54 PM
Ho people.
About five years ago PC World published a neat little Macro for Word 97 which, when run, producd a multi-page sample of all the system's fonts.
A full A-Z in upper and lower case and the numbers, etc.
Now using XP PRO and Word 2000, I'm having difficulty compiling a Macro to do the same. Any help appreciated.

Russell D
02-02-2004, 10:26 PM
Try this,

Sub listfonts()
Dim listFont As Variant
For Each listFont In FontNames
With Selection
.Font.Name = "Arial"
.Font.Size = 12
.TypeText listFont
.TypeText Text:=Chr(11)
.Font.Name = listFont
.TypeText "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
.TypeText Text:=Chr(11)
.TypeText "abcdefghijklmnopqrstuvwxyz"
.TypeText Text:=Chr(11)
.TypeText "1234567890!@#$%^&*()"
.TypeText Text:=Chr(11)
.InsertParagraphAfter
.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdMove
End With
Next listFont
End Sub

Babe Ruth
03-02-2004, 08:30 AM
scouse,

See also MS KB article WD2000: Macro to Generate List of Available Fonts in Word (http://support.microsoft.com/default.aspx?scid=http://support.microsoft.com:80/support/kb/articles/q209/2/05.asp&NoWebContent=1) and/or the following PC World article Enhanced Font List for Word (http://www.pcworld.com/downloads/file_description/0,fid,8366,00.asp)

Cheers, Babe

Scouse
03-02-2004, 10:17 AM
Russel & Babe
Much appreciated. I spent far too much time trying to modify the '97 version to meet 2000's requirements. Thanks again.