Sub Test() With ActiveDocument.PDFSettings .BitmapCompression = pdfJPEG .JPEGQualityFactor = 30 End With ActiveDocument.PublishToPDF "C:\MyDocument.pdf"End Sub