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