This example sets the page orientation for all the sections in the active document.
For Each sec In ActiveDocument.Sections
sec.PageSetup.Orientation = wdOrientLandscape
Next sec
This example creates a new document then adds some text to the document. It then creates a new section in the document and inserts text into the new section.
Set myDoc = Documents.Add
Selection.InsertAfter "This is section 1."
Set mysec = myDoc.Sections.Add
mysec.Range.InsertAfter "This is section 2"