例: Title property (NotesRichTextSection - LotusScript®)

次のエージェントは、リッチテキストアイテム内の各セクションのタイトルを表示します。

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.FindFirstElement(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.FindNextElement
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.FindFirstElement(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.FindNextElement
  Call doc.Save(True, True)
End Sub