SubstituteFont Method
Sets font-mapping options, which are reflected in the Font Substitution dialog box (Compatibility tab, Options dialog box, Tools menu).
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 CustomFont1.
Application.SubstituteFont UnavailableFont:= "CustomFont1", _
SubstituteFont:= "Courier"