Is it possible to delete multiple object styles?

Hi,

Trying to delete all object styles is ridiculously insane!

You can try this maneuver. A little bit tricky but it works. You'll have to consider that this might be a tedious process but in time, it will be resolved.
I've lived this living hell months ago. With the BETA team, we've come up with a solution.

Many object styles tend to slow down CorelDRAW to an impossible level!

FIRST STEPS
• Create an BRAND NEW CorelDRAW file
• Locate the file, where you saved it and rename the file to .ZIP file.
• Open the zipped file. From there you 'll notice all the elements that compose your CDR file.
• Locate de Styles folder. In this folder you should find a .CDSS file.
• Extract this file and save to a folder of your liking.
• You can delete the .ZIP file.

EFFECTIVE STEPS
• Locate the .CDR file you want to 'correct'. (you can copy this file for safety reasons, if you like)
• Rename the file to .ZIP file.
• Open the zipped file. Locate de Styles folder. In this folder you should find a pretty heavy .CDSS file.
• Delete the .CDSS file and replace with the new .CDSS file you extracted from the other .ZIP file of the FIRST STEPS
• Once the new .CDSS file is now in the .ZIP file, close it and rename it back to .CDR
• Try your new corrected file.


This procedure works. We haven't found a more faster or risk free way of solving this issue.

There exists a macro that coreect this but when there are too many styles saved in the file, CorelDRAW freezes and crashes.


Good luck!

ruckstande said:

The drawings have maybe over 100 object styles within them. Is there a way to remove all of them without creating a new document and copying the drawings?

You could try using macros:

Sub delete_all_styles()
Dim styleThis As Style

    For Each styleThis In ActiveDocument.StyleSheet.Styles
        styleThis.Delete
    Next styleThis
End Sub

Sub delete_all_stylesets()
Dim stylesetThis As Style

    For Each stylesetThis In ActiveDocument.StyleSheet.StyleSets
        stylesetThis.Delete
    Next stylesetThis
End Sub

Those would go after, respectively, top-level styles and top-level style sets in the document.