SaveSubsetFonts Property
True if Microsoft Word saves a subset of the embedded TrueType fonts with the document. Read/write Boolean.
Remarks
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.
Example
This example sets a document named "MyDoc" to save only a subset of its embedded TrueType fonts (when just a few characters are used), and then it saves "MyDoc."
With Documents("MyDoc")
.EmbedTrueTypeFonts = True
.SaveSubsetFonts = True
.Save
End With