![]() |
#11
|
||||
|
||||
![]()
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
ubns | Word | 3 | 08-01-2012 09:42 PM |
![]() |
TheQueenBea | Word | 3 | 06-05-2012 12:12 PM |
![]() |
TheQueenBea | Word | 1 | 05-31-2012 02:22 PM |
![]() |
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 |