Сравнение объектных переменных

[NomadV]

Никак не могу понять в чем я туплю
Задача: узнать порядковый номер текущего раздела в документе.
Я так понимаю, через свойства вытянуть не получится?
Пытаюсь перебором:

Set curSection = Selection.Sections(1)
secCount = ActiveDocument.Sections.Count

For i = 1 To secCount
  Set tempSection = ActiveDocument.Sections(i)
  If tempSection Is curSection Then
    MsgBox i & " раздел из " & secCount
    Exit Sub
  End If
Next i

Не находит.

Даже так не выполняется условие:

  Set curSection = ActiveDocument.Sections(1)
  Set tempSection = ActiveDocument.Sections(1)
  If tempSection Is curSection Then
    MsgBox i & " раздел из " & secCount
    Exit Sub
  End If

[NomadV]

Мдя...
Действительно туплю.

Selection.Sections(1).Index

А все-таки что не так со сравнением объектов?