Macro to change page numbers

[jezra85]

I have a 400 page document with many sections. When I add page numbers
they reset after each section. I have to manually go through eac
section and select to continue page numbers from previous section. I
there a way to automate this using a macro?
Thank

 

[Stefan Blom]

The following macro should do the trick:

Sub ResetPageNumberinAllSections()
Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterPrimary) _
.PageNumbers.RestartNumberingAtSection = False
Next s
End Sub

 

[jezra85]

Thanks for your help. It's very useful

;492357']The following macro should do the trick:

Sub ResetPageNumberinAllSections()
Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterPrimary) _
.PageNumbers.RestartNumberingAtSection = False
Next s
End Sub

--
Stefan Blom
Microsoft Word MVP



"jezra85" (e-mail address removed) wrote in message

I have a 400 page document with many sections. When I add pag
numbers,
they reset after each section. I have to manually go through each
section and select to continue page numbers from previous section. Is
there a way to automate this using a macro?
Thanks

 

[Stefan Blom]

I'm glad I could help!

--
Stefan Blom
Microsoft Word MVP

Thanks for your help. It's very useful

;492357']The following macro should do the trick:

Sub ResetPageNumberinAllSections()
Dim s As Section
For Each s In ActiveDocument.Sections
s.Headers(wdHeaderFooterPrimary) _
.PageNumbers.RestartNumberingAtSection = False
Next s
End Sub

--
Stefan Blom
Microsoft Word MVP



"jezra85" (e-mail address removed) wrote in message

I have a 400 page document with many sections. When I add page
numbers,
they reset after each section. I have to manually go through each
section and select to continue page numbers from previous section. Is
there a way to automate this using a macro?
Thanks