Document.SaveSubsetFonts (Word)

True if Microsoft Word saves a subset of the embedded TrueType fonts with the document.

If fewer than 32 characters of a TrueType font are used in a document, Word embeds the subset (only the characters used) in the document. If more than 32 characters are used, Word embeds the entire font.

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