can we convert PMS color fountain fill to CMYK fill in one step?

- Edit / find&replace / replace objects / replace one color mode / replace any color mode to CMYK
or
- Publish as PDF as CMYK

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.EndCommandGroup
End Sub