Change Built-in Style Name Programmatically

[Gary Hillerson]

I need to write a function that renames "Heading 1,APA Level 5" to
"Heading 1,APA Level 1" and then modifies the definition of that
style.

I've got this done in my updated template, but need to provide a way
for existing documents that were based on the previous version of my
template to be updated.

It's a bit tricky in Word itself to make such a change because
"Heading 1" is a built-in style. Turns out you can open the style
dialog and rename it to "Level 1" and Word turns that into "Heading
1,Level 1".

I'm not sure how to perform that same trick in VBA. Can I simply
change the NameLocal property of the style object, or is somtehing
else i need to do?

Thanks in advance,
G

 

[Stefan Blom]

All you have to do is set the NameLocal property to the style name alias:

ActiveDocument.Styles(wdStyleHeading1).NameLocal = "APA Level 1"

 

[Gary Hillerson]

Thanks, Stefan. Much appreciated.

G

 

[Stefan Blom]

I'm glad I could help.

 

[Stefan Blom]

Note that if you want to specify an alias for a *custom* style, you will
have to repeat the original style name. For example:

ActiveDocument.Styles("My custom style"). _
NameLocal = "My custom style,Alias for My custom style"