How to remove all styles from the Quick Style Gallery

  • Thread starter Thread starter John
  • Start date Start date
J

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.
 
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.
 
Back
Top