Sub Test() With ActiveDocument .PDFSettings.CompressText = True .PublishToPDF "C:\MyDocument.pdf" With End Sub