OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Corel User Forums > CorelDRAW > Macros/Add-ons

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 17-11-2011, 06:14
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Default Remove white overprint

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

Quote:
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
Reply With Quote
  #2  
Old 17-11-2011, 15:26
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default OverprintFill

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

-Shelby
Reply With Quote
  #3  
Old 18-11-2011, 03:15
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Default White-Overprint

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
Reply With Quote
  #4  
Old 18-11-2011, 07:50
shelbym's Avatar
shelbym shelbym is offline
Senior Member
 
Join Date: Nov 2002
Location: Cheyenne, WY
Posts: 1,770
Blog Entries: 10
Send a message via ICQ to shelbym Send a message via AIM to shelbym Send a message via MSN to shelbym Send a message via Yahoo to shelbym
Default OverPrintOutline

If you are using X4 or above, you can use a little CQL to find the shapes with OverPrintFill and OverPrintOutline. Something like this:
Code:
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
Reply With Quote
  #5  
Old 20-11-2011, 05:11
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Default White overprint

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.

Last edited by grzjanik; 21-11-2011 at 03:17.
Reply With Quote
  #6  
Old 12-03-2012, 04:26
grzjanik grzjanik is offline
Member
 
Join Date: Mar 2010
Location: Lodz, Poland
Posts: 86
Send a message via Skype™ to grzjanik
Default Remove white overprint

OK. Working code below:

Quote:
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

Last edited by grzjanik; 12-03-2012 at 04:30.
Reply With Quote
Reply

Tags
overprint, remove, white


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Convert All fills except black to white - how? knowbodynow CorelDRAW/Corel DESIGNER VBA 3 08-06-2011 06:32
overprint fill not work... why? Jeff Harrison CorelDRAW/Corel DESIGNER VBA 2 04-08-2010 01:11
white overprint robert Macros/Add-ons 1 21-11-2008 13:00
Fade from white to transparent DalePurdon General 1 23-10-2006 06:08
Color to Black & White Mark CorelDRAW/Corel DESIGNER VBA 3 20-07-2004 14:57


All times are GMT -5. The time now is 05:09.


Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com