Microsoft KB Archive/66619

Macro that Generates Table of Symbol Fonts in Word for Windows

PSS ID Number: Q66619 Article last modified on 10-27-1993

1.00 1.10 1.1a 2.00 2.00a 2.00a-CD 2.00b 2.00c 6.00 WINDOWS

Summary: The following Microsoft Word for Windows and Word for OS/2 macro generates a table of Symbol fonts. In Winword 6.0, substitute FormatFont for Format Character: 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 = “Symbol” ’ change font to Symbol Insert Chr$(i) ’ insert symbol 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 Symbol character. To insert a Symbol character, do the following: 1. From the Format menu, choose Character and change the font to Symbol. 2. Press 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.

Additional reference words: 1.00 1.10 1.10a w4wmacro 6.00 wm_word w4wtable 2.00 2.00a 2.00a-CD 2.00b 2.00c w_os2word Copyright Microsoft Corporation 1993.