Is it possible to delete multiple object styles?

ruckstande
over 2 years ago

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. 

Parents
  • 0 over 2 years ago
    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.

Reply Children

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.