Please Note: This article is written for users of the following Microsoft Word versions: 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365. 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: Unwanted Styles.
Written by Allen Wyatt (last updated March 17, 2018)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365
Rhana asked for a way to remove unwanted styles from the Style drop-down list on the Formatting toolbar. There is no easy way to do this; in fact, some styles are included on the list by default. For instance, Normal and three Heading styles are always visible. If you have additional styles showing up which you know you don't use and should not be there, then the only successful way to remove the styles from the drop-down list is to effectively recreate the document. This is not quite as drastic as it sounds however; you can follow these general steps:
Please Note:
This article is written for users of the following Microsoft Word versions: 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365. 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:
{\s242\tqc\tx4320\tqr\tx8640 \fs20\lang1033 \sbasedon0\snext242 footer;}
WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (8522) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and Word in Microsoft 365. You can find a version of this tip for the older menu interface of Word here: Unwanted Styles.
Create Custom Apps with VBA! Discover how to extend the capabilities of Office 2013 (Word, Excel, PowerPoint, Outlook, and Access) with VBA programming, using it for writing macros, automating Office applications, and creating custom applications. Check out Mastering VBA for Office 2013 today!
Smart quotes can be helpful in making a great-looking document, but at times, they can be a real pain. Wouldn’t it be ...
Discover MoreStyles are invaluable when it comes to applying consistent formatting in and across documents. If you need to rename a ...
Discover MoreIf you use styles to format your document, you might want a way to print the document and show, to the left of each ...
Discover MoreFREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
2018-03-19 13:51:54
mzk
Whoa! BTW, wouldn't you have to change txt back to rtf first?
2018-03-19 11:15:32
Susan Uttendorfsky
This is very useful to me. I frequently receive documents that were written in R2L format, and to add to the chaos, they've been opened and edited in various versions of Word and in various operating systems. Many times there are a ton of unused styles listed that were carried along from computer to computer. Some I can right-click and Delete, but some seem to be more deeply embedded and I can't delete them. I suspect this will work much better!
Susan Uttendorfsky
Adirondack Editing
2018-03-18 05:31:33
Ken Endacott
Jan-Christian. The macro that you quote comes from the tip:
https://word.tips.net/T001337_Removing_Unused_Styles.html
However there is a big problem with this macro because the statement oStyle.Delete is slow and it can take around an hour if there are several dozen styles to delete. A very much faster command is OrganizerDelete. See the comments in the above tip for details.
2018-03-17 07:46:39
Alison
I usually do this by deleting the unwanted styles (and/or modifying/replacing them with the ones I prefer) and saving it as a Word template, which I can then apply as required to any document.
2018-03-17 07:13:22
Re Removing unwanted styles
This is what I have been using:
Sub Stylecleaner()
Dim oStyle As Style
For Each oStyle In ActiveDocument.Styles
'Only check out non-built-in styles
If oStyle.BuiltIn = False Then
With ActiveDocument.Content.Find
.ClearFormatting
.Style = oStyle.NameLocal
.Execute FindText:="", Format:=True
If .Found = False Then oStyle.Delete
End With
End If
Next oStyle it's
End Sub
Note: I might well have picked up this macro, or at least the idea somewhere, so I make no claim to be the creator of it!
2018-03-17 04:54:30
Rhonda Bracey
Another quick method is to delete them via the Organizer. See this blog post of mine for details: https://cybertext.wordpress.com/2010/01/28/word-remove-unwanted-styles-quickly/
--Rhonda
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.
Visit the WordTips channel on YouTube
FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2025 Sharon Parq Associates, Inc.
Comments