How to remove all styles from the Quick Style Gallery

[John]

Word 2007 SP1
XP Pro SP2

Problem: How to remove all styles from the Quick Style Gallery

I have many styles in the Quick Style Gallery list.
I would like to have only a few listed.
Is there a way to quickly remove all the styles
in the Quick Style Gallery list instead of having to remove
each style individually using the context menu?

Thanks in advance.

 

[Stefan Blom]

To clear all quick styles in the active document, you can run the following
macro:

Sub ClearAllQuickStylesInDoc()
Dim s As Style

For Each s In ActiveDocument.Styles
If s.Type = wdStyleTypeCharacter Or _
s.Type = wdStyleTypeParagraph Or _
s.Type = wdStyleTypeLinked Then

s.QuickStyle = False

End If

Next s
End Sub

If you need assistance, see http://www.gmayor.com/installing_macro.htm.