SubstituteFont Method
Applies To
Application object.
Description
Sets font-mapping options, which are reflected in the Font Substitution dialog box (Compatibility tab, Options dialog box, Tools menu).
Syntax
expression.SubstituteFont(UnavailableFont, SubstituteFont)
expression Required. An expression that returns an Application object.
UnavailableFont Required String. The name of a font not available on your computer that you want to map to a different font for display and printing.
SubstituteFont Required String. The name of a font available on your computer that you want to substitute for the unavailable font.
Example
This example substitutes Courier for Myfont.
Application.SubstituteFont UnavailableFont:= "Myfont", _
SubstituteFont:= "Courier"