Document.Sections (Word)

Returns a Section collection that represents the sections in the specified document.

For information about returning a single member of a collection, see Returning an object from a collection.

For Each sec In ActiveDocument.Sections 
 sec.PageSetup.Orientation = wdOrientLandscape 
Next sec