Pagnation with Columns

johnbornsworth · #1 03-17-2024, 08:42 AM

Hello - I have a hundred page technical document with many columns. I don't recall running into this in the past when doing such things. But my pagination is ruined because of all the section breaks that don't include page breaks. My "visible" section numbers skip many numbers - the rest of the numbers being the phantom sections that aren't broken by page. The hidden footers/heaters from the phantom sections are set to Start at 0 rather than continue from previous section causing the following section to restart the sequence.

I've called MS support. It's been weeks and they're dumbfounded.

Is there anything I can do? If the only option is to temporarily add page breaks to all the section breaks, then modify the header sequence, then delete that page break, I'm probably just going to manually type page numbers.

John Bornsworth

Italophile · #2 03-17-2024, 09:30 AM

It is possible that one of the sections is corrupt.

If that is not the case then you should be able to set the starting number by simply looping through the sections. For example:

Code:

Sub SetStartingPageNumber()
    Dim secIndex As Long
    
    For secIndex = 2 To ActiveDocument.Sections.count
        ActiveDocument.Sections(secIndex).Headers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = False
    Next secIndex
End Sub

johnbornsworth · #3 03-17-2024, 09:50 AM

Quote:

Originally Posted by Italophile

It is possible that one of the sections is corrupt.

If that is not the case then you should be able to set the starting number by simply looping through the sections. For example:

Code:

Sub SetStartingPageNumber()
    Dim secIndex As Long
    
    For secIndex = 2 To ActiveDocument.Sections.count
        ActiveDocument.Sections(secIndex).Headers(wdHeaderFooterPrimary).PageNumbers.RestartNumberingAtSection = False
    Next secIndex
End Sub

Will that work is the sections are many per page? Due to the columns each visible page may span 2-4 sections. So counting the sections in sequence will result in much higher page numbers that actual pages.

Also maybe the sections are corrupt? Is there a way to verify that?

Italophile · #4 03-17-2024, 11:05 AM

Quote:

Originally Posted by johnbornsworth

Will that work is the sections are many per page?

Yes.

Quote:

Originally Posted by johnbornsworth

Due to the columns each visible page may span 2-4 sections. So counting the sections in sequence will result in much higher page numbers that actual pages.

No, the only effect on page numbering is to set them to continue from the previous section, which is what you say is broken.

Quote:

Originally Posted by johnbornsworth

Also maybe the sections are corrupt? Is there a way to verify that?

No. It usually manifests as odd behaviour. I have typically found that documents with a lot of continuous section breaks are more likely to become corrupt.

johnbornsworth · #5 03-17-2024, 07:44 PM

That was fantastic. Worked like a charm. THANK YOU! (The report is about trees and urban forests so they thank you as well.)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Code to delete selected columns and re arrange columns in order	RAJESH@1960	Excel Programming	1	04-14-2023 07:58 AM
How to create 3 Columns from Data in 1 Column using every 3 Cells to create the 3 Columns?	leeuniverse	Excel	2	03-30-2023 11:00 PM
Split selected columns, or all columns exept for Column1	Cendrinne	Word VBA	2	09-20-2019 09:14 PM
Insert 8 columns into 3 columns	BendixB	Excel Programming	2	08-08-2018 12:39 PM
How to compare 2 columns with other two columns in EXECL 2007?	Learner7	Excel	5	06-12-2010 09:54 AM