Sub SetPageSizes()
  Dim aPage As Page
  For Each aPage In ActiveDocument.Pages
    aPage.PageSheet.CellsSRC(visSectionObject, visRowPage, visPageWidth).FormulaU = "17 in"
    aPage.PageSheet.CellsSRC(visSectionObject, visRowPage, visPageHeight).FormulaU = "11 in"
  Next aPage
End Sub