Footer Macro in Word - Section Count

[Alicia Napier]

I'm trying to create a macro that can copy the information in the Footer on the first page (section one) to the rest of the footers in the remainnig sections. The macro needs to know how to count the sections and use that number to 'repeat' the copy/paste function. Does that make sense? Can anyone help?

Thanks!

 

[fumei via OfficeKB.com]

Just make them "Same as previous"

I'm trying to create a macro that can copy the information in the Footer on the first page (section one) to the rest of the footers in the remainnig sections. The macro needs to know how to count the sections and use that number to 'repeat' the copy/paste function. Does that make sense? Can anyone help?

Thanks!

 

[Doug Robbins - Word MVP]

You do not need to copy and paste. Linking the Footers to the Footer in the
previous section will do the same thing. The following code should do that:

With ActiveDocument
For i = 2 To .Sections.Count
.Sections(i).Footers(wdHeaderFooterFirstPage).LinkToPrevious = True
.Sections(i).Footers(wdHeaderFooterPrimary).LinkToPrevious = True
Next i
End With


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