Sub Test() ActiveDocument.PDFSettings.Load "PDF for Document Distribution" ActiveDocument.PublishToPDF "C:\MyDocument.pdf"End Sub