There is a macro in this post that hides all styles unless the name includes an underscore.
https://www.msofficeforums.com/171776-post2.html

Adapting that should be relatively painless.

__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia