Sub CreatePageRefs()
  Dim oSec As Word.Section, oFooter As Word.HeaderFooter, lngIndex As Long
  Set oSec = ActiveDocument.Sections(1) 'The first section, in Roman (i, ii, iii)
  oSec.PageSetup.DifferentFirstPageHeaderFooter = True
  Set oFooter = oSec.Footers(wdHeaderFooterPrimary)
  With oFooter.PageNumbers
    .Add PageNumberAlignment:=wdAlignPageNumberCenter
    .NumberStyle = wdPageNumberStyleLowercaseRoman
    .RestartNumberingAtSection = True
    .StartingNumber = 1
    .ShowFirstPageNumber = False
  End With
  Set oSec = ActiveDocument.Sections(2) 'The second section switch to Arabic numbering (1,2,3)
  oSec.PageSetup.DifferentFirstPageHeaderFooter = True
  Set oFooter = oSec.Footers(wdHeaderFooterPrimary)
  oFooter.LinkToPrevious = False
  With oFooter.PageNumbers
    .Add PageNumberAlignment:=wdAlignPageNumberCenter
    .NumberStyle = wdPageNumberStyleArabic
    .RestartNumberingAtSection = True
    .StartingNumber = 1
    .ShowFirstPageNumber = False
  End With
  For lngIndex = 3 To ActiveDocument.Sections.Count 'All remaining sections restart so that first page number set to "False"
    Set oSec = ActiveDocument.Sections(lngIndex)
    oSec.PageSetup.DifferentFirstPageHeaderFooter = True
    Set oFooter = oSec.Footers(wdHeaderFooterPrimary)
    oFooter.LinkToPrevious = False
    With oFooter.PageNumbers
      .Add PageNumberAlignment:=wdAlignPageNumberCenter
      .NumberStyle = wdPageNumberStyleArabic
      .RestartNumberingAtSection = True
      .StartingNumber = 1
      .ShowFirstPageNumber = False
    End With
  Next
End Sub