Количество страниц в разделе | Word - VBA

Формулировка задачи:

Здравствуйте Коллеги!

В принципе задача учебная (для самообразования). Необходимо научиться получать количество страниц разделов документа. Много где искал, есть разные предложения но, мне понравилась идея с ActiveDocument.Sections(1).Range.ComputeStatistics(wdStatisticPages).

Sub страниц_в_разделе()
 
        a = ActiveDocument.Sections(1).Range.ComputeStatistics(wdStatisticPages) - 1
        b = ActiveDocument.Sections(2).Range.ComputeStatistics(wdStatisticPages) - 1
        c = ActiveDocument.Sections(3).Range.ComputeStatistics(wdStatisticPages) - 1
        d = ActiveDocument.Sections(4).Range.ComputeStatistics(wdStatisticPages) '- 1
       
        MsgBox a & " " & b & " " & c & " " & d
End Sub

Хотя если нужно чисто в документе то не плохой вариант.

      Страница { PAGE } из { SET MyBookmarks { SECTIONPAGES } }{SECTIONPAGES }

Суть вопроса, ни как не получается записать первый код циклом, пробовал

For To

, не получилось. Пожалуйста если, кто-то сталкивался с данным вопросом объясните, почему все разделы необходимо писать - 1 а, последний нет и каким циклом лучше перебрать разделы.

С уважением, Аватар-С!

Решение задачи: «Количество страниц в разделе | Word»

textual
                            Листинг программы 
                        

                            Sub страниц_в_разделе()
    c = ActiveDocument.Sections.Count
    
    For n = 1 To c - 1
        s = ActiveDocument.Sections(n).Range.ComputeStatistics(wdStatisticPages) - 1 'количество стр. разделов (кроме последнего)
        s = s
        n = n
        ActiveDocument.Sections(n).Range.ComputeStatistics (wdStatisticPages) 'номер раздела
        txt = txt & n & " раздел " & " - " & s & " стр." & vbNewLine
    Next n
    
    s2 = ActiveDocument.Sections(c).Range.ComputeStatistics(wdStatisticPages) ' количество стр. последеного раздела
    txt2 = c & " раздел " & " - " & s2 & " стр."
    
    MsgBox txt & txt2
End Sub
                        