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.
Learning Made Easy! Quickly teach yourself how to format, publish, and share your content using Word 2013. With Step by Step, you set the pace, building and practicing the skills you need, just when you need them! Check out Microsoft Word 2013 Step by Step today!
When you add formatting to some text in your document, Word may apply your formatting to every other part of your ...
Discover MoreThere may be some paragraphs in a document that you don't want Word to spell- or grammar-check. You can 'turn off' the ...
Discover MoreWhen there are multiple users working with a document, it can collect a number of unwanted styles over time. Here are ...
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 © 2024 Sharon Parq Associates, Inc.
Comments