Microsoft KB Archive/69859

Macro that Generates Table of ITC Zaph Dingbat Fonts

PSS ID Number: Q69859 Article last modified on 02-17-1993

1.00 1.10 1.10a WINDOWS

Summary: The following Microsoft Word for Windows macro generates a table of ITC Zaph Dingbat fonts: Sub MAIN FileNew .Template = “Normal” For i = 33 To 255 FormatCharacter .Font = “Courier” ’ change font to Courier Insert Str$(i) ' insert ANSI number Insert Chr$ (9) ’ insert tab Insert Chr$(i) ' insert normal character  Insert Chr$ (9) ’ insert tab FormatCharacter .Font = “ITC Zaph Dingbats” ’ change font to ITC Zaph Dingbats Insert Chr$(i) ’ insert ITC Zaph Dingbats character InsertPara ’ insert carriage return Next i End Sub

More Information: This macro creates a new document and writes a three-column table (using tabs) on it. The first column contains the ANSI number of the character; the second column is the character using the Courier font; and the third column is the ITC Zaph Dingbats character assuming you have the ITC Zaph Dingbats soft fonts installed. To insert a ITC Zaph Dingbats character, do the following: 1. From the Format menu, choose Character and change the font to ITC Zaph Dingbats. 2. Press ALT+NUM LOCK or SHIFT+NUM LOCK to turn on the numeric keypad NUM LOCK key. 3. Press the ALT key while typing “0” plus the ANSI code of the desired character (for example, type ALT+0183 for character 183). 4. From the Format menu, choose Character and select your original font.

Reference(s): Articles Journals

Additional reference words: w4wmacro