With ActiveDocument.Sections For i = 0 To .Count .PageSetup.Orientation = wpsOrientLandscape Next End With