SubstituteFont Method

Microsoft Word Visual Basic

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"