|
|
#11
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
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 |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode