Removing Specific Styles

[Krumrei]

Anyone have code to remove specific stlyes from a document?

I created a Macro to modify the name of the Style, but need to remove the
old from the list, but only specific styles.

Thanks!

 

[Krumrei]

Here is the code I added. However, I need to know what to do, if the Style
does not exsist in the list, how to skip to the next one without bombing the
program?

ActiveDocument.Styles("Body Text_ACSSC").NameLocal = "Body Text_ACS"
ActiveDocument.Styles("Body Text_ACSSC").Delete