Changing the Names of Multiple Styles

Written by Allen Wyatt (last updated August 28, 2021)
This tip applies to Word 2007, 2010, 2013, 2016, 2019, and 2021

Normand has documents with up to 25-30 custom styles. The names of these styles start with the letters NB. He would like to rename the styles by changing the NB to NF. Normand knows how to do it one by one, but is looking for a way to batch process the changes.

This type of change is easy to do with a macro. Word makes available, to VBA, the name of each style which can also be change through the macro. Here's an example:

Sub ChangeStyleNames()
    Dim s As Style

    For Each s In ActiveDocument.Styles
        If Left(s, 2) = "NB" Then s = "NF" & Mid(s, 3)
    Next s
End Sub

The macro steps through each style in the document and, if the first two letters are "NB", changes those letters to "NF". Note that the macro only needs to work with individual style objects (denoted by the s variable), and that the NameLocal property doesn't need to be explicitly cited. This is because in the absence of an explicit property, the NameLocal property is the one automatically assumed by VBA.

The macro is very fast to run. In testing on a document with almost 400 styles, it took less than 2 seconds to complete. It checks all styles, both built-in and user-defined.

Note:

If you would like to know how to use the macros described on this page (or on any other page on the WordTips sites), I've prepared a special page that includes helpful information. Click here to open that special page in a new browser tab.

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (10120) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, and 2021.

Author Bio

Allen Wyatt

With more than 50 non-fiction books and numerous magazine articles to his credit, Allen Wyatt is an internationally recognized author. He is president of Sharon Parq Associates, a computer and publishing services company. Learn more about Allen...

MORE FROM ALLEN

Replacing and Converting in a Macro

When you use a macro to process data you always run the risk of making that data unusable by Excel. This is especially ...

Discover More

Wrapping Text Around a Graphic

Place a graphic in your document, and you may want to make sure that your document text "wraps" around the edges of the ...

Discover More

Turning Off Display of Zeros for All Worksheets

Some people like zero values displayed; others do not. Excel allows you to easily turn the display on or off for a single ...

Discover More

Discover the Power of Microsoft Office This beginner-friendly guide reveals the expert tips and strategies you need to skyrocket your productivity and use Office 365 like a pro. Mastering software like Word, Excel, and PowerPoint is essential to be more efficient and advance your career. Simple lessons guide you through every step, providing the knowledge you need to get started. Check out Microsoft Office 365 For Beginners today!

More WordTips (ribbon)

Assigning a Shortcut Key to Styles

Shortcut keys are a great way to apply styles to text in a document. You can easily create a shortcut key assignment for ...

Discover More

Making Sure Styles Do Not Update Automatically

One of the features of Word that can cause some problems is one that allows styles to be automatically updated based upon ...

Discover More

Numbering on New Paragraph Doesn't Work as Expected

Numbering in Word can be a bit tricky to navigate. Sometimes it works as it should, and other times it seems to be doing ...

Discover More

FREE SERVICE: Get tips like this every week in WordTips, a free productivity newsletter. Enter your address and click "Subscribe."

View most recent newsletter.

Comments

If you would like to add an image to your comment (not an avatar, but an image to help in making the point of your comment), include the characters [{fig}] (all 7 characters, in the sequence shown) in your comment text. You’ll be prompted to upload your image when you submit the comment. Maximum image size is 6Mpixels. Images larger than 600px wide or 1000px tall will be reduced. Up to three images may be included in a comment. All images are subject to review. Commenting privileges may be curtailed if inappropriate images are posted.

Notify me about new comments ONLY FOR THIS TIP

Notify me about new comments ANYWHERE ON THIS SITE

Hide my email address

What is 9 + 0?

2023-08-27 08:50:34

Maria

Hi - I think this was just what I was looking for - but I am a bit of a newbie regarding using the correct syntax for macros and I wonder if anyone can help me customise the macro for my specific needs.

I have sets of styles which I use on various company documents. The styles will be H1Builders, H2Builders, AltH1Builders, AltH2Builders, B1Builders, B2Builders, AppendixBuilders, PartiesBuilders, RecitalBuilders, ScheduleBuilders, SubScheduleBuilders, etc (where 'Builders' represents the company name). Some styles will have 6 or 7 levels.

I want to change just the company name for each level. I do not know how to change the code in the macro to ignore everything in a style name apart from 'Builders' and just to change 'Builders' to 'Lawyers' for every style.

For Each s In ActiveDocument.Styles
If s = "Builders" Then s = "Lawyers"

This seems too simple? I am wary of running this and ending up with a hundreds of styles all called Lawyers+1, Lawyers+2, etc!

Does anyone have any advice for me please?

2022-06-19 16:38:49

Stephane

Hi Allen,
your code is a piece of the puzzle I would like to complete, but as a beginner in coding I don't find a way to make it work for my needs.
I would like to change the last word of the styles in my docs and replace it by another one. My different tries only allowed me to put the new word in front of the name's style and the old word remains…
Any help would be much appreciated! Best, Stephane

2021-10-27 16:50:17

Doug Bond

I ran this code on my document and it only output built-in styles no custom styles:

Sub RenameLocalStyle()
'
' RenameLocalStyle Macro
'
'
Dim sty As Style
For Each sty In ActiveDocument.Styles
'If sty.BuiltIn = False Then
'sty.NameLocal = "A new style name"
Debug.Print sty
'If sty.NameLocal = "Document_Title" Then
' MsgBox sty.NameLocal
'End If
Next sty
End Sub

This Site

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.