Revert all symbols to objects.?

How can I revert all symbols to object in document?

  • Symbols are already objects (vectors). Sorry, but what are you trying to say?Embarrassed

  • 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

          Hi Ariel, thanks for suggestion but the document comes from PDF. This is the reason of the problem. I do not try PDF X3 but some PDF importing change some objects to the symbol objects.

          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.

               

              • 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's Symbols to Shapes Converter

              -Shelby

            • A little too late, but it may be useful to someone.

              ' in main procedure paste next code:

              While Not AllSymbolsToShapes(.Shapes)
                      AllSymbolsToShapes .Shapes
              Wend


              ' and before or after main procedure paste the next function:

              Function AllSymbolsToShapes(ss As Shapes) As Boolean
              Dim 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 s
              End 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 .Shapes
                Wend


                ' and before or after main procedure paste the next function:

                Function AllSymbolsToShapes(ss As Shapes) As Boolean
                Dim 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 s
                End Function

                Thank you, good solution but can you ad for powerclip inside objects?

                 

                • If Symbol is contained inside PowerClip, then you need to change the function AllSymbolsToShapes(..) as follows:

                  Function AllSymbolsToShapes(ss As Shapes) As Boolean
                  Dim s As Shape
                  Dim 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 s
                  End 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.