Автоматическая нумерация, и не только

 public int insertPage(string viWhere, bool bPageFirst,int startPage,int hlevel)
        {
            object alignment = Word.WdPageNumberAlignment.wdAlignPageNumberCenter;
            object bFirstPage = bPageFirst;
            object bF = true;
            Word.Range MyRange;
      
            wordApplication.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekCurrentPageHeader; // заходим в коллонтитул 
            switch (viWhere)
            {
                case "right":
                    alignment = Word.WdPageNumberAlignment.wdAlignPageNumberRight;
                    break;
                case "left":
                    alignment = Word.WdPageNumberAlignment.wdAlignPageNumberLeft;
                    break;
            }

wordApplication.Selection.HeaderFooter.PageNumbers.NumberStyle = Word.WdPageNumberStyle.wdPageNumberStyleArabic;
wordApplication.Selection.HeaderFooter.PageNumbers.HeadingLevelForChapter = hlevel;
wordApplication.Selection.HeaderFooter.PageNumbers.IncludeChapterNumber = false;
wordApplication.Selection.HeaderFooter.PageNumbers.Add(alignment, bFirstPage);
wordApplication.Selection.HeaderFooter.PageNumbers.RestartNumberingAtSection = true;
wordApplication.Selection.HeaderFooter.PageNumbers.StartingNumber = startPage;
wordApplication.ActiveWindow.ActivePane.View.SeekView = Word.WdSeekView.wdSeekMainDocument; // закрываем коллонтитул
wordApplication.Selection.EndKey();
MyRange = wordDocument.Range();
MyRange.MoveEnd();
MessageBox.Show(Convert.ToString(MyRange.get_Information(Word.WdInformation.wdActiveEndAdjustedPageNumber)));
int rez = (int)MyRange.get_Information(Word.WdInformation.wdActiveEndAdjustedPageNumber);
     return rez;
        }

Public Function PagesCount(Doc As Document, StartNamber As Long) As Long
Dim Section As Section
Dim HeaderFooter As HeaderFooter, TOC As TableOfContents
    Set HeaderFooter = Doc.Sections(1).Headers(wdHeaderFooterFirstPage)
        With HeaderFooter.PageNumbers
            .RestartNumberingAtSection = True
            .StartingNumber = StartNamber
        End With
     Set HeaderFooter = Doc.Sections(1).Headers(wdHeaderFooterPrimary)
        With HeaderFooter.PageNumbers
            .RestartNumberingAtSection = False
        End With
    Set HeaderFooter = Doc.Sections(1).Headers(wdHeaderFooterEvenPages)
        With HeaderFooter.PageNumbers
            .RestartNumberingAtSection = False
        End With
        If Doc.Sections.Count = 1 Then Exit Function
            For i = 2 To Doc.Sections.Count
                Set Section = Doc.Sections(i)
                Set HeaderFooter = Doc.Sections(i).Headers(wdHeaderFooterFirstPage)
                    With HeaderFooter.PageNumbers
                        .RestartNumberingAtSection = False
                    End With
                Set HeaderFooter = Doc.Sections(i).Headers(wdHeaderFooterPrimary)
                    With HeaderFooter.PageNumbers
                        .RestartNumberingAtSection = False
                    End With
                Set HeaderFooter = Doc.Sections(i).Headers(wdHeaderFooterEvenPages)
                    With HeaderFooter.PageNumbers
                        .RestartNumberingAtSection = False
                    End With
                Next i
                    Set Section = Doc.Sections(Doc.Sections.Count)
                        For i = 1 To Doc.TablesOfContents.Count
                            Set TOC = Doc.TablesOfContents(i)
                                If TOC.Range.Sections(1).Index = Section.Index Then
                                    PagesCount = Doc.Sections(Doc.Sections.Count - 1).Range.Characters.Last.Information(wdActiveEndAdjustedPageNumber) _
                                        - Section.Range.Characters.Last.Information(wdActiveEndAdjustedPageNumber)
                                    Exit Function
                                End If
                        Next i
End Function