I'm working with older Corel documents. Some are many pages. 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? I can't import because all of the styles come back. Thanks.
"Well believe me, Mike, I calculated the odds of this succeeding versus the odds I was doing something incredibly stupid... and I went ahead anyway."
No problem.I know it's complex, but after all, it's the fastest and most effective method.Keep your blank .CDSS file stored. It'll be useful for eventual changes!
The approach of editing the .CDSS file, or replacing the .CDSS file with a "known good" one, was discussed in this thread here on the Community forum
opening X7 document shows blank screen.
If you use 7-Zip, then you don't need to rename the .CDR file to .ZIP. You can just right-click on the .CDR file, then open it using the 7-Zip options in the context menus in Windows.
Running in to this my self. I went the macro approach, I noticed that it errors out because it gets to items that were deleted already. Say you have 100 you delete the first one. Then all the other one move up one. now when your code gets halfway thorough to 51-100 don't exist.
I reversed the order by counting down from the total. Seems to be working now. its slow if you have a lot thought I have 1000's- 10,000's
Private Sub ClearAllStyleSets() Dim d As Document Dim count As Double Set d = ActiveDocument count = d.StyleSheet.AllStyleSets.count doloop: If count = 0 Then Exit Sub d.StyleSheet.AllStyleSets(count).Delete count = count - 1GoTo doloopEnd Sub.
7-Zip or any other 'zipping' program.WinZip, WinRAR, etc...