Macro to replace one specific heading style with another

ubns · #13 08-14-2012, 08:49 PM

Hi Paul,

Thanks for your reply. I have now tried the following code:

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:=.Styles("Custom Breakout"), Object:=wdOrganizerObjectStyles
  End If
End With
End Sub

It gives the error message "Requested member of the collection does not exist"

I have included this in "This Document" section of the Normal.dotm.

Can you please advice what I am doing incorrectly?

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