SaveSubsetFonts Property 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