How to remove all styles from the Quick Style Gallery

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.
 
S

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.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top