Public Sub TestSection()
Dim i As Byte
Dim prps As Properties
Dim prp As Property
Dim rpr As Report

Set rpr = Reports("Test13")
On Error Resume Next
For i = 0 To 15
Err.Clear
Set prps = rpr.Section(i).Properties
If Err.Number = 0 Then 'если не возникла ошибка - значит такой раздел существует
For Each prp In prps 'перебираем все свойства раздела и выводим в окно отладки
Debug.Print rpr.Section(i).Name & vbTab & i & vbTab & prp.Name & vbTab & prp.Value
Next prp
End If
Next i
End Sub