Macro to replace one specific heading style with another

ubns · #1 08-13-2012, 10:50 PM

Hi Paul,

I have done the following -- based on your sugg

Code:

Sub Document_Open()
With ActiveDocument
  If InStr(.Sections.First.Footers(wdHeaderFooterFirstPage).Range.Text, "Statement of Advice") > 0 Then
    Application.OrganizerCopy Source:=.AttachedTemplate.FullName, Destination:=.FullName, _
      Name:="custom breakout".NameLocal, Object:=wdOrganizerObjectStyles
  End If
End With
End Sub

it is giving syntax error.

also if there is more than one style of heading - then how would we enter the multiple style names.

Does this needs to be in "This Document" of Normal.dotm.

Regards

Umesh Banga

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