Sub Test() ActiveDocument.PDFSettings.pdfVersion = pdfVersionPDFX1 ActiveDocument.PublishToPDF "C:\MyDocument.pdf" End Sub