Document.SaveSubsetFonts (Word)

La valeur true si Microsoft Word enregistre un sous-ensemble des polices TrueType incorporées avec le document.

Si moins de 32 caractères d'une police TrueType sont utilisés dans un document, Word incorpore le sous-ensemble (uniquement les caractères utilisés) dans le document.

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