DoNotEmbedSystemFonts Property

expression.DoNotEmbedSystemFonts

expression    Required. An expression that returns a Document object.

Remarks

Setting the DoNotEmbedSystemFonts property to False is useful if the user is on an East Asian system and wants to create a document that is readable by others who do not have fonts for that language on their system. For example, a user on a Japanese system could choose to embed the fonts in a document so that the Japanese document would be readable on all systems.

Example

This example embeds all fonts in the current document.

Sub EmbedFonts()
    With ThisDocument
        If .EmbedTrueTypeFonts = False Then
            .EmbedTrueTypeFonts = True
            .DoNotEmbedSystemFonts = False
        Else
            .DoNotEmbedSystemFonts = False
        End If
    End With
End Sub