can we convert PMS color fountain fill to CMYK fill in one step?
This macro does the trick with one click. As found here. Then modified.
Sub ConvertPantoneFountain() Dim cl As FountainColor ActiveDocument.BeginCommandGroup "ConvertPantoneFountain" If ActiveShape.Fill.Type <> cdrFountainFill Then MsgBox "The selected shape must have a fountain fill." Exit Sub End If For Each cl In ActiveShape.Fill.Fountain.Colors cl.Color.ConvertToCMYK cl.Color.ConvertToCMYK Next cl ActiveShape.Fill.Fountain.StartColor.ConvertToCMYK ActiveShape.Fill.Fountain.EndColor.ConvertToCMYK ActiveDocument.EndCommandGroupEnd Sub