The SubsetPct property specifies the maximum percentage of the character set used in a PDF file. If the percentage of the character set used in the document is less than this value, only the used characters are embedded; otherwise, the whole font is embedded. To apply this property, the PDFVBASettings.SubsetFonts property must be specified as True.
Examples:
The following VBA example publishes the document to PDF. All of the document's fonts are converted to Type 1 and embedded in the PDF file along with the base-14 fonts. Fonts are subset if less than 80% of their character set is used.
Sub Test()
With ActiveDocument.PDFSettings
.EmbedBaseFonts = True
.EmbedFonts = True
.SubsetFonts = True
.SubsetPct = 80
.TextAsCurves = False
.TrueTypeToType1 = True
End With
ActiveDocument.PublishToPDF "C:\MyDocument.pdf"
End Sub