With ActiveDocument.PageSetup .PageHeight = InchesToPoints(9) .PageWidth = InchesToPoints(7) End With