find CMYK outlines

I'm printing to a  print driver that uses only "true" RGB colors (255,0,0, e.g.). So I need to convert CMYK black to RGB(0,0,0)

Also CMYK red to RGB(255,0,0)

If you want to go with the "for each s in sr" type of approach, you could try this:

Sub outlines_1()

Dim sr As ShapeRange
Dim s As Shape

Set sr = ActiveSelectionRange

    For Each s In sr
        If s.Outline.Color.IsSame(CreateCMYKColor(0, 0, 0, 100)) Then
            s.Outline.Color.RGBAssign 0, 0, 0
        End If
    Next s
End Sub

.

Another approach might be to use Corel Query Language (CQL) to search a collection of shapes, then set the outline for all of the found shapes in one shot.

In this example, it would find all shapes on the page, including those in groups (but not content in PowerClips):

Sub outlines_2()

Dim sr As ShapeRange

    Set sr = ActivePage.Shapes.FindShapes(Query:="@outline.color.cmyk = cmyk(0,0,0,100)")
    sr.SetOutlineProperties , , CreateRGBColor(0, 0, 0)
End Sub

Thanks Eskimo.  This will do it.

outlines_1 I understand and will probably use.

But, what documentation is available on CQL?  That appears to be helpful in many cases and I'd like to learn more about it.