Sub Test() With ActiveDocument.PDFSettings .CropMarks = True .DensitometerScales = True .FileInformation = True .RegistrationMarks = True End With ActiveDocument.PublishToPDF "C:\MyDocument.pdf"End Sub