How can I revert all symbols to object in document?
Symbols are already objects (vectors). Sorry, but what are you trying to say?
Symbols not correctly convert back to PDF. And it's only way so far go tru Preflight to convert them all to objects.
Hi there
I use the object manager to select the symbols then use the context menu (right-click) to select 'revert to objects'
Hope it helps... screencap below
Thank you Silvio and Andrew.
Andrew, it is good idea if the symbol objects ordered under and under. But I have 100 page document and symbol objects seperated.
according with your job, save as CMX or export as PDF X/3, then open the file and save as CDR
Ariel said: according with your job, save as CMX or export as PDF X/3, then open the file and save as CDR
is CMX have problems with effects or transparencies?
Kursad Cakir said:]Hi Ariel, thanks for suggestion but the document comes from PDF. This is the reason of the problem.
No, the reason is other: the PDF is an illustrator file saved as PDF. CorelDRAW read some illustrator objects as "symbols". If you export as other file format and import again, the "symbols" link will be broken. Try it and tell me
Ariel said: ]Hi Ariel, thanks for suggestion but the document comes from PDF. This is the reason of the problem. No, the reason is other: the PDF is an illustrator file saved as PDF. CorelDRAW read some illustrator objects as "symbols". If you export as other file format and import again, the "symbols" link will be broken. Try it and tell me [/quote]Really? I was not know? I will try it.
]Hi Ariel, thanks for suggestion but the document comes from PDF. This is the reason of the problem.
[/quote]Really? I was not know? I will try it.
Ariel,
I tried it but draw X5.695 Crashes when I try to export to PDF.
You can use a macro for this, currently it is per page, but if you wanted it to work for the entire document I would be happy to add the feature.
-Shelby
Shelby Moore said: You can use a macro for this, currently it is per page, but if you wanted it to work for the entire document I would be happy to add the feature. Shelby's Symbols to Shapes Converter -Shelby
' in main procedure paste next code:
While Not AllSymbolsToShapes(.Shapes) AllSymbolsToShapes .ShapesWend
' and before or after main procedure paste the next function:
Function AllSymbolsToShapes(ss As Shapes) As BooleanDim s As Shape AllSymbolsToShapes= True For Each s In ss If s.Type = cdrGroupShape Then AllSymbolsToShapes s.Shapes ' if shape of the type of group If s.Type = cdrSymbolShape Then ' if shape of the type of Symbol s.Symbol.RevertToShapes ' Revert Symbol to shapes AllSymbolsToShapes= False ' the Symbol may be resides in another Symbol then call this function again (the cycle of while in main procedure) End If Next sEnd Function
otma said: A little too late, but it may be useful to someone. ' in main procedure paste next code: While Not AllSymbolsToShapes(.Shapes) AllSymbolsToShapes .ShapesWend ' and before or after main procedure paste the next function: Function AllSymbolsToShapes(ss As Shapes) As BooleanDim s As Shape AllSymbolsToShapes= True For Each s In ss If s.Type = cdrGroupShape Then AllSymbolsToShapes s.Shapes ' if shape of the type of group If s.Type = cdrSymbolShape Then ' if shape of the type of Symbol s.Symbol.RevertToShapes ' Revert Symbol to shapes AllSymbolsToShapes= False ' the Symbol may be resides in another Symbol then call this function again (the cycle of while in main procedure) End If Next sEnd Function
If Symbol is contained inside PowerClip, then you need to change the function AllSymbolsToShapes(..) as follows:
Function AllSymbolsToShapes(ss As Shapes) As BooleanDim s As ShapeDim pwc As PowerClip AllSymbolsToShapes = True For Each s In ss
' *************** it's code for symbol inside Group ************************************** If s.Type = cdrGroupShape Then If Not AllSymbolsToShapes(s.Shapes) Then AllSymbolsToShapes = False End If
'*******************************************************************************************
' *************** it's code for symbol inside PowerClip ********************************** Set pwc = Nothing On Error Resume Next Set pwc = s.PowerClip On Error GoTo 0 If Not pwc Is Nothing Then If Not AllSymbolsToShapes(pwc.Shapes) Then AllSymbolsToShapes = False End If
'******************************************************************************************* ' *************** it's code for revert symbol to shape ************************************* If s.Type = cdrSymbolShape Then s.Symbol.RevertToShapes AllSymbolsToShapes = False End If'******************************************************************************************* Next sEnd Function
I hope this is what you need.
Thank you, I'll trying.
Hello Kursad,
I found the same problem and wont be able to revert all the symbols to objects.
I am new to procedure and macros and i would like to know the steps to run script.
I have Corel x6 installed and want your help to revert all symbols to objects..
Thanks in Advance
vandit1285 said: Hello Kursad, I found the same problem and wont be able to revert all the symbols to objects. I am new to procedure and macros and i would like to know the steps to run script. I have Corel x6 installed and want your help to revert all symbols to objects.. Thanks in Advance
CorelDRAW X7 already has an option for convert to symbols or not when open or import an AI file.