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