[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?
--
thank you,

d

[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


"dartspader" wrote in message
...
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?
--
thank you,

d

[dartspader]

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

d


"Stefan Blom" wrote:

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


"dartspader" wrote in message
...
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?
--
thank you,

d

[Stefan Blom]

I'm glad I could help.

--
Stefan Blom
Microsoft Word MVP


"dartspader" wrote in message
...
Runs like a charm! As my supervisor said - "Sweet"
--
thank you,

d


"Stefan Blom" wrote:

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


"dartspader" wrote in message
...
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?
--
thank you,

d