Please Note: This article is written for users of the following Microsoft Word versions: 2007, 2010, and 2013. If you are using an earlier version (Word 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Word, click here: Deleting a Large Number of Styles.
Daniel has a problem that many people may face from time to time. He gets documents from others in his office, and they often contain a large number of styles that he needs to delete. Deleting a large number of styles one at a time is a real pain, so he is looking for a way to delete a large number of styles all at once.
The easiest way to do this is to use a behind-the-scenes tool called the Organizer. Follow these steps:
Figure 1. The Styles tab of the Organizer.
Remember that some built-in styles (such as Normal) cannot be deleted from the list of styles.
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (9653) applies to Microsoft Word 2007, 2010, and 2013. You can find a version of this tip for the older menu interface of Word here: Deleting a Large Number of Styles.
Comprehensive VBA Guide Visual Basic for Applications (VBA) is the language used for writing macros in all Office programs. This complete guide shows both professionals and novices how to master VBA in order to customize the entire Office suite for their needs. Check out Mastering VBA for Office 2010 today!
Word can hyphenate documents automatically, if you want it to. But what about those situations where you want most of a ...
Discover MoreWant to see what styles are defined in your document? Let Word print out a simplistic style sheet for you.
Discover MoreWant to customize your styles list so that it only lists the ones you are using? It's easy and can save some time when ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2017-09-29 22:06:32
Ken Endacott
Kyle,
The following macro will delete all custom styles in the document. it uses OrganizerDelete rather than painfully slow sty.Delete
Sub DeleteCustonStyles()
Dim sty As Style
Dim docPath As String
Dim j As Long
Dim k As Long
docPath = ActiveDocument.Path & "\" & ActiveDocument.Name
j = ActiveDocument.Styles.Count
For k = j To 1 Step -1
Set sty = ActiveDocument.Styles(k)
If Not sty.BuiltIn Then
Application.OrganizerDelete Source:=docPath, _
Name:=sty.NameLocal, Object:=wdOrganizerObjectStyles
End If
Next k
MsgBox "All custom styles deleted"
End Sub
2017-09-28 11:05:05
Kylie
Ken,
All I see there is how to delete unused styles. I want to delete all styles, used and unused, except the built in ones. I receive hundreds of documents created by various individuals which all have different styles and I need to get rid of them and just have the built in styles remaining. This would be easy if I just created a macro to delete the styles and then format the document the way I need it formatted (Times New Roman, Size 9, etc.). Help?
2017-09-28 03:08:15
Ken Endacott
Kylie
See:
https://word.tips.net/T001337_Removing_Unused_Styles.html
Note the comments that discuss how to overcome the very slow execution time of the macro given in the tip.
2017-09-27 12:04:16
Kylie
Can this action be simplified into a macro?
Got a version of Word that uses the ribbon interface (Word 2007 or later)? This site is for you! If you use an earlier version of Word, visit our WordTips site focusing on the menu interface.
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2019 Sharon Parq Associates, Inc.
Please Note:
This article is written for users of the following Microsoft Word versions: 2007, 2010, and 2013. If you are using an earlier version (Word 2003 or earlier), this tip may not work for you. For a version of this tip written specifically for earlier versions of Word, click here: 
Comments