Trouble with tables (tribbles?) and page breaks.

[Art Yates]

I am using VB6 to create a word XP document consisting of several sections
One or more tables per section. The document may end up being 300+ pages.
This is aircraft information organized by country for active versus inactive
aircraft ,
civilian, military, ..etc

Each table has a header row such as (Reg No, Make/Model, Serial No, Owner
Name , ..etc)
using selection.Rows(1).HeadingFormat = True [thanks Jezebel]

When the country changes in my dataset, I add my own sub-header to mark the
beginning of a new country
(bold with a toc entry). To make the table user-friendly, I need to add a
country sub-header on line 2
(bold but without a toc entry) of the next page if the data for the country
spans pages.

HERE IS THE PROBLEM: finding when the page number has changed. Using
"ActiveDocument.BuiltinDocumentProperties(wdPropertyPages).Value" does not
reliability tell me when the page number has changed.
It usually identifies a page break 4 to 6 lines into the next page. I need a
vba expression that tells me when I am at the beginning of a new page.

 

[Jezebel]

The Information() property will tell you what page you're on.

But a simpler solution is to use a StyleRef field in the header.