Remove white overprint

[grzjanik]

Hi guys.
Please add the possibility of converting this well in the Outline.

Sub Overprint_WHITE_Remove()
Dim sr As ShapeRange
Dim s As Shape
Set sr = ActivePage.Shapes.FindShapes()
For Each s In sr
s.CreateSelection
If s.Fill.UniformColor.Name() = "White" And s.OverprintFill Then
s.OverprintFill = False
End If
Next s
End Sub

I can not deal with it.

Great thanks.
~GrzJanik

[shelbym]

I am not sure I understand the question. Is your code not working?

-Shelby

[grzjanik]

Hi. This code working only fills.
Please change this code to white-overprint changes not only fills but also the outlines. I would also like to do this entire the document.
Thank you in advance for your help.
~GrzJanik

[shelbym]

If you are using X4 or above, you can use a little CQL to find the shapes with OverPrintFill and OverPrintOutline. Something like this:

Sub AllOverPrints()
    Dim s As Shape
    Dim p As Page
    Dim srOutlines As ShapeRange, srFills As ShapeRange
    
    For Each p In ActiveDocument.Pages
        p.Activate
        Set srOutlines = p.Shapes.FindShapes(Query:="@com.OverPrintOutline = 'True' and @outline.color.IsWhite = 'True'")
        Set srFills = p.Shapes.FindShapes(Query:="@com.OverPrintFill = 'True' and @fill.color.IsWhite = 'True'")
        
        For Each s In srOutlines.Shapes
            s.OverprintOutline = False
        Next s
        
        For Each s In srFills.Shapes
            s.OverprintFill = False
        Next s
    Next p
End Sub

Hope that helps,

-Shelby

[grzjanik]

Hi. Thanks Shelby for your reply. I'm sorry I forgot to write that I work in Corel 12 and I can not use the CQL. This is what I wrote only works with fills in the Corel 12. I do not know how the syntax should look in the outlines. : ( Please help.
Sorry for my English.

[grzjanik]

OK. Working code below:

Sub Overprint_WHITE_Remove_All_Pages()
Dim s As Shape, p As Page, sr As ShapeRange
On Error Resume Next
For Each p In ActiveDocument.Pages
p.Activate
Set sr = p.Shapes.FindShapes()
For Each s In sr
s.CreateSelection
If s = cdrGroupShape Then s.Ungroup
If s.Fill.UniformColor.Name() = "White" And s.OverprintFill Then s.OverprintFill = False
If s.Outline.Color.Name() = "White" And s.OverprintOutline Then s.OverprintOutline = False
Next s
Next p
Msgbox "All white overprints is remove."
End Sub

I hope to be helpful.

Regards.
~GrzJanik