Sub Test() Dim p As Page For Each p In ActiveDocument.Pages p.SizeWidth = 5 p.SizeHeight = 11 Next pEnd Sub