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

macropod · 08-12-2012, 09:37 PM

You could try something like:

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", Object:=wdOrganizerObjectStyles
  End If
End With
End Sub