View Single Post
  #8   Report Post  
Posted to microsoft.public.word.docmanagement
Doug Robbins - Word MVP
 
Posts: n/a
Default Can MS Word templates draw on a separate style sheet?

This is the code that you should have in an Autonew() macro in each template

Sub Autonew()

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
With .Sections(i)
With .Headers(wdHeaderFooterFirstPage).Range.Fields
.Update
.Unlink
End With
With .Headers(wdHeaderFooterPrimary).Range.Fields
.Update
.Unlink
End With
With .Footers(wdHeaderFooterFirstPage).Range.Fields
.Update
.Unlink
End With
With .Footers(wdHeaderFooterPrimary).Range.Fields
.Update
.Unlink
End With
End With
Next i
End With

End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"nonsensitor" wrote in message
...
Thanks - that sounds quite neat. I'm an amateur when it comes to
programming,
though I'd say I'm reasonably quick to pick things up...what level of
expertise would you recommend is required to take this approach? Can you
recommend any websites with reasonably detailed examples?