Macro to replace one specific heading style with another

macropod · #7 08-12-2012, 05:45 PM

Why are you trying to access Normal.dot through code? That makes no sense at all for what you said you want to do:

Quote:

change a specific heading style in my document to another heading style

All you need for that is to use Find/Replace to replace one Style with the other.

Given that we're dealing with heading styles, you would only access Normal.dot to:
• modify an existing Style, so that the change applies to all documents. But, since that would only be done once, you wouldn't use code; or
• to ensure a current Style definition gets carried over to the document being opened. In that case, you might use code like:

Code:

Private Sub Document_Open()
With ActiveDocument
  Application.OrganizerCopy Source:=.AttachedTemplate.FullName, Destination:=.FullName, _
    Name:=.Styles(wdStyleHeading2).NameLocal, Object:=wdOrganizerObjectStyles
End With
End Sub

Which you would put into the Document's 'This Document' module. If you were to put it into the Template's 'This Document' module, it could adversely affect documents that shouldn't be changed.

Depending on what you're trying to achieve, though, all you might need to do is to check the 'automatically update document styles' option.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Create and save custom heading style	ubns	Word	3	08-01-2012 09:42 PM
Modify a numbered heading style	TheQueenBea	Word	3	06-05-2012 12:12 PM
Changing numbering in a Heading style	TheQueenBea	Word	1	05-31-2012 02:22 PM
Very frequent heading style, but still not built in Word!!!!! why???	Jamal NUMAN	Word	17	06-30-2011 05:47 PM
How to have this Heading – Table of contents style?	Jamal NUMAN	Word	0	01-13-2011 06:02 PM