LOTUSSCRIPT /COM/OLE のクラス
例:RowLabels プロパティ
1 次のエージェントは、現在の文書の [Body] フィールド内で最初の (または唯一の) 表を取得し、その行ラベルを表示します。
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
2 次のエージェントは、現在の文書の [Body] フィールド内で最初の (または唯一の) 表を取得し、その表に行ラベルを記述します。
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
関連項目
RowLabels プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集