Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Numbering / November 2007

Tip: Looking for answers? Try searching our database.

Page Numbers, Multiple Sections.. on one page

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Solon - 19 Nov 2007 16:27 GMT
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 - 19 Nov 2007 19:24 GMT
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

Signature

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

> Greetings,
>
[quoted text clipped - 26 lines]
>
> Solon
Solon - 19 Nov 2007 20:22 GMT
Doug,
I'll give it a shot, thanks!

Solon
> Run a macro containing the following code:
>
[quoted text clipped - 40 lines]
>>
>> Solon
Solon - 20 Nov 2007 13:00 GMT
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

> Run a macro containing the following code:
>
[quoted text clipped - 40 lines]
>>
>> Solon
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.