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