Change page numbers to "Continue from previous Section"

[dartspader]

I have a huge Word document with close to a thousand sections that all start
over numbering pages at 1. I know I can go to each header and change the
page numbering to "continue from previous section" but was wondering if there
is a way to do this for multiple sections to save hundreds of keystrokes and
much time?

 

[Stefan Blom]

Use this macro:

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

If you need assistance, see http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP


in message
news:[email protected]...

 

[dartspader]

Runs like a charm! As my supervisor said - "Sweet"
--
thank you,

d

Use this macro:

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

If you need assistance, see http://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP


in message

 

[Stefan Blom]

I'm glad I could help.

--
Stefan Blom
Microsoft Word MVP


in message

Runs like a charm! As my supervisor said - "Sweet"