Document.DoNotEmbedSystemFonts (Word)

True para que Microsoft Word no incrustar fuentes comunes del sistema.

Es útil establecer la propiedad Document en False si el usuario está en un sistema asiático oriental y desea crear un documento que puedan leer otros usuarios que no tienen fuentes para ese idioma en su sistema.

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