Sub Test() With ActiveDocument.PDFSettings .ColorMode = pdfRGB .UseColorProfile = True .ColorProfile = pdfCompositeProfile End With ActiveDocument.PublishToPDF "C:\MyDocument.pdf"End Sub