PDFVBASettings.SubsetPct

Property SubsetPct As Long

The SubsetPct property sets the maximum percentage of the character set used. If the percentage of the character set used in the document is less than this value, only the characters that are used are embedded. Otherwise, the whole font is embedded.

To apply the SubsetPct property, the SubsetFonts property must be set to True.

The following code 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