wordapp.Selection.HeaderFooter.PageNumbers.RestartNumberingAtSection = True
 wordapp.Selection.HeaderFooter.PageNumbers.StartingNumber = PageNum + 1

   Set worddoc = wordapp.Documents.Open(путь к папке)
         worddoc.Application.Visible = True
         tttt = worddoc.ComputeStatistics(wdStatisticPages)

  For Each sec In worddoc.Sections
  If sec.Index = 1 Then
 
 sec.Range.Paragraphs(1).Range.Select
 With worddoc.ActiveWindow.View
  .SeekView = wdSeekCurrentPageFooter
    End With

' что-то изменить
 wordapp.Selection.HeaderFooter.PageNumbers.RestartNumberingAtSection = True
 wordapp.Selection.HeaderFooter.PageNumbers.StartingNumber = PageNum + 1 
  
  With worddoc.ActiveWindow.View
  .SeekView = wdSeekMainDocument
 End With

On Error GoTo 0
       
       wordapp.ScreenRefresh
    h = h
   Else
   sec.Headers(wdHeaderFooterEvenPages).PageNumbers.RestartNumberingAtSection = False
  End If
  Next sec
  PageNum = PageNum + tttt
           
 On Error Resume Next
          
  With worddoc.ActiveWindow.View
  .Type = wdPrintView
  .SeekView = wdSeekCurrentPageFooter
  wordapp.ScreenRefresh
  .Type = wdPrintView
  .SeekView = wdSeekMainDocument
 End With
On Error GoTo 0
         
 worddoc.Close savechanges:=wdSaveChanges