Sub PageNumberReset()
Application.ScreenUpdating = False
Dim pgNo As Long, n As Long
Dim StrPath As String
Dim ArrNames, wdDoc As Document

' Specify the path to the document files
StrPath = "C:\MyDocs\Example\"
' Create an array holding the document file names, in sequence
ArrNames = Array("Chap1.docx", "Chap2.docx", "Chap3.docx")

For n = 0 To UBound(ArrNames)
  Set wdDoc = Documents.Open(FileName:=StrPath & ArrNames(n), AddToRecentFiles:=False)
  With wdDoc
    With .Sections.First
      For Each HdFt In .Headers
        With HdFt
          If .Exists = True Then
            .PageNumbers.RestartNumberingAtSection = True
            .PageNumbers.StartingNumber = pgNo + 1
          End If
        End With
      Next
      For Each HdFt In .Footers
        With HdFt
          If .Exists = True Then
            .PageNumbers.RestartNumberingAtSection = True
            .PageNumbers.StartingNumber = pgNo + 1
          End If
        End With
      Next
    End With
    pgNo = pgNo + .ComputeStatistics(wdStatisticPages)
    .Close Savechanges:=wdSaveChanges
  End With
Next n

Set wdDoc = Nothing
Application.ScreenUpdating = True
End Sub