例: RowLabels property

次のエージェントは、現在の文書の [本文] フィールド内で最初の (または唯一の) 表を取得し、その行ラベルを表示します。

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_TABLE) Then
    Messagebox "Body item does not contain a table,",, _
    "Error"
    Exit Sub
  End If
  Dim rtt As NotesRichTextTable
  Set rtt = rtnav.GetElement
  labelString = ""
  Forall label In rtt.RowLabels
    If label <> "" Then labelString = labelString & _
    Chr(13) & "  " & label
  End Forall
  If labelString = "" Then labelString = "No labels"
  Messagebox "Row labels = " & labelString,, _
  "NotesRichTextTable"
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_TABLE) Then
    Messagebox "Body item does not contain a table,",, _
    "Error"
    Exit Sub
  End If
  Dim rtt As NotesRichTextTable
  Set rtt = rtnav.GetElement
  Dim labels() As String
  Redim labels(1 To rtt.RowCount)
  For i = 1 To rtt.RowCount
    labels(i) = "Tab " & i
  Next
  rtt.RowLabels = labels
  Call doc.Save(True, True)
End Sub