VBA to remove all Character Styles but keep formatting

[Bernadette]

Hello,

I have a macro that removes all Character Styles from the body of the document but I would like to keep the superscript that was in the Footnote Reference character style as well as the formatting that is in other character styles. Ideally I would like the macro to remove character styles from the actual footnotes at the bottom of the pages not just in the body of the document. Any help is greatly appreciated!

This is my code:

Selection.WholeStory
On Error Resume Next
Selection.ClearCharacterStyle
On Error GoTo 0

Thanks,
Bernadette