Page Numbers, Multiple Sections.. on one page

[Solon]

Greetings,

I'm using Word 2003 in XP and have inherited some documents created by
someone who didn't understand sections and page numbering. They started each
document at a different number (100, 200, 300, etc) and put multiple
sections onto one page somehow, and so often had to use Insert > Page
Numbers > Format to change the "Start At" field to make the numbering work.

Nearly every footer is different, in that he added a piece of information
pertaining to THAT area of the document in the footer, so I can' t just
remove the footers and start over.

So, in a fit of desparation, I simply did a Ctrl + A to Select All and used
the "Insert > Page Numbers > Format" hoping that it would fix all of them.
It seemed to work on one or two documents, but not consistently so I often
end up changing my "Go To" to "Section" and using Page Down to highlight
each section and manually change the numbering format.

I haven't the time to go in and fix everthing in these documents, so I'd
like to find a way to globally change the numbering properties of ALL the
sections so that even when there are multiple sections on one page, the
numbering of each page works.

Is there a way to take manually entered Page Numbers formatting and globally
change it to "Continue from Previous Section" or some such?

Thanks,

Solon

 

[Doug Robbins - Word MVP]

Run a macro containing the following code:

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count
.Sections(i).Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection
= False
.Sections(i).Footers(wdHeaderFooterFirstPage).PageNumbers.RestartNumberingAtSection
= False
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

 

[Solon]

Doug,
I'll give it a shot, thanks!

Solon

Run a macro containing the following code:

Dim i As Long
With ActiveDocument
For i = 1 To .Sections.Count

.Sections(i).Footers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection
= False

.Sections(i).Footers(wdHeaderFooterFirstPage).PageNumbers.RestartNumberingAtSection
= False
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

 

[Solon]

Quick update:

I used that code to create a macro, and nothing happened (I'm not real
macro-capable these days).

So I went back and tried again and found that if I simply go to section 1,
set the numbering, and save THEN highlight the entire document and set the
numbering, it works.

Weird.

Solon