Section Page Count and Section Pages field Bugs

Posting for Greg Maxey

1. I have Microsoft® Word 2019 MSO (Version 2508 Build 16.0.19127.20302) 32-bit.  
2. There are bugs in program related to accurately returning section page count.  To produce, open a new Word document and perform the following:
3. Type single short line of text e.g., Hello World.
4. Apply an end note to that text.
5. Hit the enter key until empty paragraphs push the end note to the very top of the next page.
6. In the header enter a {Page} field and a {Section Pages} field.  E.g.,  Page {Page} of {Section Pages} pages
7. Update the fields.  Look at pages 1 and 2 in the document.
8. The Header {Section Pages) field incorrectly returns Page 1 of 1 pages and Page 2 of 1 Pages.  The human eye and the {Page} field obviously are correct.  The Section Pages field is wrong.
9. Run the following macro:
10. Sub ScratchMacro()
    'A basic Word Macro coded by Gregory K. Maxey
    Dim oRng As Range
    Set oRng = ActiveDocument.Sections(1).Range
      MsgBox ActiveDocument.Sections.Count 'Correct. Word knows the document has 1 section
      MsgBox oRng.Information(wdActiveEndSectionNumber) 'Correct. Word knows the range is in that 1 section
      MsgBox oRng.Information(wdNumberOfPagesInDocument) 'Correct. Word knows that the document has 2 pages
      MsgBox oRng.Information(wdActiveEndPageNumber) 'Bug. Incorrect, should return 2.
    lbl_Exit:
      Exit Sub
    End Sub