View Single Post
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Stefan Blom[_3_] Stefan Blom[_3_] is offline
external usenet poster
 
Posts: 6,897
Default Macro to change page numbers

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




--
jezra85