Footers in Word 2003

R

RayD

I have a 99 page document that has about 80 sections that I inserted into an
existing document and I need to insert the page numbers into the footer. Is
there any way to insert these numbers without going to each section and
selecting "connect to previous"?
 
J

Jay Freedman

RayD said:
I have a 99 page document that has about 80 sections that I inserted
into an existing document and I need to insert the page numbers into
the footer. Is there any way to insert these numbers without going to
each section and selecting "connect to previous"?
Click to expand...

Use a macro like this (see http://www.gmayor.com/installing_macro.htm if
needed):

Sub ConnectAllFooters()
Dim mySec As Section
For Each mySec In ActiveDocument.Sections
mySec.Footers(wdHeaderFooterPrimary).LinkToPrevious = True

'if you have "different first page", uncomment this:
'mySec.Footers(wdHeaderFooterFirstPage).LinkToPrevious = True

'if you have "different odd and even", uncomment this:
'mySec.Footers(wdHeaderFooterEvenPages).LinkToPrevious = True
Next
End Sub

Here, "uncomment" means to delete the apostrophe at the start of the line.

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.
 
Top