NotesRichTextSection class
Properties: IsExpanded
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim dc As NotesDocumentCollection
Set dc = db.UnprocessedDocuments
Dim doc As NotesDocument
Set doc = dc.GetFirstDocument
Dim rti As NotesRichTextItem
Set rti = doc.GetFirstItem("Body")
Dim rtnav As NotesRichTextNavigator
Set rtnav = rti.CreateNavigator
If Not rtnav.FindFirstElement(RTELEM_TYPE_SECTION) Then
Messagebox "Body item does not contain a section,",, _
"Error"
Exit Sub
End If
Dim rts As NotesRichTextSection
Do
Set rts = rtnav.GetElement
If rts.IsExpanded Then
Messagebox "Section is expanded",, rts.Title
Else
Messagebox "Section is not expanded",, rts.Title
End If
Loop While rtnav.FindNextElement
Нет нет нет, эта штука найдёт секцию внутри Рич поля, а в моём случае я просто на форме секцию сделал, и хочу узнать закрыта она или нет