Sub Initialize
 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.GetFirstElement(RTELEM_TYPE_SECTION) Then
   Messagebox "Body item does not contain a section,",, _
   "Error"
   Exit Sub
 End If
 Dim rts As NotesRichTextSection
 count% = 0
 Do
   count% = count% + 1
   Set rts = rtnav.GetElement
   Messagebox "Section " & count%  _
   ,, rts.Title
 Loop While rtnav.GetNextElement
End Sub

Sub Initialize
 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.GetFirstElement(RTELEM_TYPE_SECTION) Then
   Messagebox "Body item does not contain a section,",, _
   "Error"
   Exit Sub
 End If
 Dim rts As NotesRichTextSection
 count% = 0
 Do
   count% = count% + 1
   Set rts = rtnav.GetElement
   rts.Title = "Section " & count%
 Loop While rtnav.GetNextElement
 Call doc.Save(True, True)
End Sub

See Also

Title property