Examples:
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