Dim oSection as Section
For Each oSection in ActiveDocument.Sections
 If oSection.PageSetup.Orientation = wdOrientationLandscape Then
   'it is a landscape section
 Else
   'it isn't
 End If
Next oSection

Hi Andreas,

hmm..., I think you want to find out
what section breaks cause landscape orientation
in the following section!

The section break, which causes this,
may be in an portrait section however.

You could expand Jonathan's solution
to locate the section break preceeding
the landscape section.

Or you could try this one:

Sub Test555()
Dim rDcm As Range
Set rDcm = ActiveDocument.Range
With rDcm.Find
  .Text = Chr(12)
  While .Execute
     MsgBox rDcm.Characters.Last.Next.PageSetup.Orientation
     ' 1 = landscape
  Wend
End With
End Sub