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?
|