| Forum Home | ||||
| Press F1 | ||||
| Thread ID: 42161 | 2004-02-02 09:54:00 | Word 2000 Sample Font List Macro | Scouse (83) | Press F1 |
| Post ID | Timestamp | Content | User | ||
| 212355 | 2004-02-02 09:54:00 | 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. |
Scouse (83) | ||
| 212356 | 2004-02-02 10:26:00 | 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 |
Russell D (18) | ||
| 212357 | 2004-02-02 20:30:00 | scouse, See also MS KB article WD2000: Macro to Generate List of Available Fonts in Word (support.microsoft.com) and/or the following PC World article Enhanced Font List for Word (www.pcworld.com) Cheers, Babe |
Babe Ruth (416) | ||
| 212358 | 2004-02-02 22:17:00 | Russel & Babe Much appreciated. I spent far too much time trying to modify the '97 version to meet 2000's requirements. Thanks again. |
Scouse (83) | ||
| 1 | |||||