Macro that deletes unused styles

[thejollyroger]

I have tried to use the macro below to delete unused styles in my document, however it is also deleting the header and footer styles as well as all the styles inside textboxes. It is not that the macro is doing the wrong thing, the header and footer and textbox styles in the document are listed as 'Not Currently Used" in the style panel, even though they are most definitely used in the document.





This is the macro:

https://word.tips.net/T001337_Removi...ed_Styles.html

I have read on other forums that I should turn formatting tracking on for those textbox and header/footer styles to be recognized as used, but this doesn't work.

Does anyone know how I make Word recognize these styles, or alter the macro so it doesn't delete them?