WD6X: How to Add a Font to the Symbol Font List (139852)

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

With a document open, click Macro on the Tools menu.
In the Macros Available In box, select Word Commands.
In the Macro list box, click ToolsAdvancedSettings.
Click Run.
In the Categories list, click SymbolFonts (Word Font Substitutes).
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.
Click Set.
Click OK.
Quit Word.

When you restart Word, the font will be available in the Symbol Font list on both the Insert Symbol and Format Bullets & Numbering menu items.

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

WARNING: ANY USE BY YOU OF THE CODE PROVIDED IN THIS ARTICLE IS AT YOUR OWN RISK. Microsoft provides this macro code "as is" without warranty of any kind, either express or implied, including but not limited to the implied warranties of merchantability and/or fitness for a particular purpose.