Document.SaveSubsetFonts (Word)

True si Microsoft Word guarda un subconjunto de las fuentes TrueType incrustadas en el documento.

Si se utilizan menos de 32 caracteres de una fuente TrueType en un documento, Word incrusta el subconjunto (sólo los caracteres utilizados) en el documento.

With Documents("MyDoc") 
 .EmbedTrueTypeFonts = True 
 .SaveSubsetFonts = True 
 .Save 
End With