Microsoft Office Forums - View Single Post - [Solved] Macro to replace one specific heading style with another

ubns · 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