View Single Post
  #8   Report Post  
Posted to microsoft.public.word.docmanagement
Stefan Blom[_3_] Stefan Blom[_3_] is offline
external usenet poster
 
Posts: 6,897
Default Changing headers for sections

You have sort of been working against Word, rather than along side with it,
which will be time-consuming. :-(

It seems clear that you don't really need all these sections, so you can delete
them as Peter suggested, and continue from there. You could use the following
macro to automate the unlinking for you (for assistance, see
http://www.gmayor.com/installing_macro.htm). Note, however, that you'd have to
run it again if you add more sections (as headers/footers in new sections will
always be linked to their "neighbors" in the preceding section).

Sub UnlinkCurrentHeadersFooters()
Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterEvenPages).LinkToPrevious = False
s.Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
s.Headers(wdHeaderFooterPrimary).LinkToPrevious = False

s.Footers(wdHeaderFooterEvenPages).LinkToPrevious = False
s.Footers(wdHeaderFooterFirstPage).LinkToPrevious = False
s.Footers(wdHeaderFooterPrimary).LinkToPrevious = False
Next s
End Sub

--
Stefan Blom
Microsoft Word MVP




"endless" wrote in message ...

I appreciate everyone's suggestions. But I have a 60-page document and
your suggestions will take hours. So much for computers saving us work!
I also have a 500-page document that will need to be worked on next.
Needless to say, that might take the rest of my life and I'm not looking
forward to it. My real issue with this is that - according to Word Help
- it shouldn't be necessary to go through these steps. Their
instructions are much simpler, but they don't work. Why would they give
advice that doesn't work? I know that hatred isn't productive, but it's
unavoidable whenever I use this program!




--
endless