WD6X: How to Add a Font to the Symbol Font List

• Microsoft Word for the Macintosh, versions 6.0, 6.0.1

SUMMARY

This article describes how to add a font to the Font drop-down list in the Symbol dialog box. (To locate the Font list, click Symbol on the Insert menu, and click the down arrow next to the Font box.)

NOTE: The procedure below will also change the list of fonts on the Symbols From list within Bullets and Numbering of the Format menu. (To locate the Font list, select Bullets & Numbering from the Format menu. Click on the Bulleted tab and press Modify. Click the Bullet button and then click the down arrow next to the Symbols From box.

MORE INFORMATION

1. With a document open, click Macro on the Tools menu.

2. In the Macros Available In box, select Word Commands.

3. In the Macro list box, click ToolsAdvancedSettings.

4. Click Run.

5. In the Categories list, click SymbolFonts (Word Font Substitutes).

6. In the Option box, type the name of the font that you want to add to the Symbol Font list. Note: You must type the font name exactly as it appears on the Font menu.

7. Click Set.

8. Click OK.

9. Quit Word.

The following macro will add all available fonts to Symbol font lists:

   Sub MAIN
   Print "Getting Font List..."
   For count = 1 To CountFonts()
    CurrentFont$ = Font$(count)
    ToolsAdvancedSettings .Application = "SymbolFonts (Word Font
   Substitutes)", .Option = CurrentFont$, .Setting = "", .Set
   Next count
   Print "Operation Complete."
   End Sub