This code is designed to create a non-tabbed table of two rows and five columns in a rich text field to display information. I've added in static text but it could be used to display information from a document as well.
I've implemented this as an agent, as the code this came from was used in this way, but it could be a button, query open etc. You can use the same classes to create a tabbed table, but this tip doesn't do that. This code works with R6 and above only.
Code: Sub Initialize
Dim sess As New NotesSession
Dim ws As New NotesUIWorkspace
Dim dbCurr As NotesDatabase
Dim docProcess As NotesDocument
Dim dcProcess As NotesDocumentCollection
Dim rtiItem As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtt As NotesRichTextTable
Dim rtsTableHeader As NotesRichTextStyle
Dim rtsTableRow As NotesRichTextStyle
Dim sData(4) As String
Dim sHeaders(4) As String
Dim sPrefix As String
Dim iCtr As Integer
Dim iRow As Integer
Dim iCol As Integer
'We declare an array of paragraph
styles to pass in when creating the
table
Dim rtpsCols(4) As
NotesRichTextParagraphStyle
Set dbCurr = sess.CurrentDatabase
Set dcProcess =
dbCurr.UnprocessedDocuments
If dcProcess.Count > 0 Then
'These are display headers for the table
sHeaders(0) = "Header 1"
sHeaders(1) = "Header 2"
sHeaders(2) = "Header 3"
sHeaders(3) = "Header 4"
sHeaders(4) = "Header 5"
'An array of data for the Columns
sData(0) = "Col 1"
sData(1) = "Col 2"
sData(2) = "Col 3"
sData(3) = "Col 4"
sData(4) = "Col 5"
'Set up the text styles we want to
use for displaying the text
Set rtsTableHeader =
sess.CreateRichTextStyle
rtsTableHeader.FontSize = 10
rtsTableHeader.Bold = True
Set rtsTableRow=
sess.CreateRichTextStyle
rtsTableRow.FontSize = 8
rtsTableRow.Bold = False
'Set up the paragraph styles for the table
'The column widths are set
by setting the left margin to 0 then
the right margin to
'what the column width should be
Set rtpsCols(0) =
sess.CreateRichTextParagraphStyle
'This column in left aligned
rtpsCols(0).Alignment = 0
rtpsCols(0).Firstlineleftmargin = 0
rtpsCols(0).Leftmargin = 0
rtpsCols(0).RightMargin =
RULER_ONE_CENTIMETER * 7.51
'This column is centre aligned
Set rtpsCols(1) =
sess.CreateRichTextParagraphStyle
rtpsCols(1).Alignment =3
rtpsCols(1).Firstlineleftmargin = 0
rtpsCols(1).Leftmargin = 0
rtpsCols(1).RightMargin =
RULER_ONE_CENTIMETER * 1.43
Set rtpsCols(2) =
sess.CreateRichTextParagraphStyle
rtpsCols(2).Alignment =3
rtpsCols(2).Firstlineleftmargin = 0
rtpsCols(2).Leftmargin = 0
rtpsCols(2).RightMargin =
RULER_ONE_CENTIMETER * 2.18
Set rtpsCols(3) =
sess.CreateRichTextParagraphStyle
rtpsCols(3).Alignment =3
rtpsCols(3).Firstlineleftmargin = 0
rtpsCols(3).Leftmargin = 0
rtpsCols(3).RightMargin =
RULER_ONE_CENTIMETER * 1.68
Set rtpsCols(4) =
sess.CreateRichTextParagraphStyle
rtpsCols(4).Alignment =0
rtpsCols(4).Firstlineleftmargin = 0
rtpsCols(4).Leftmargin = 0
rtpsCols(4).RightMargin =
RULER_ONE_CENTIMETER * 10.73
Set docProcess = dcProcess.GetFirstDocument
While Not docProcess Is Nothing
'I've used good old Body as my rich text field
Set rtiItem = docProcess.GetFirstItem("Body")
'The styles only have about three fonts that can be
used by default
'Arial isn't one of them so we have to 'Get' it from
the rich text item
'I don't really understand this but that's how it
works...
rtsTableHeader.NotesFont = rtiItem.GetNotesFont
("Arial", True)
rtsTableRow.NotesFont = rtiItem.GetNotesFont("Arial",
True)
'We create the table, with 1 row, 5 columns, "" for the
title, so it's not a tabbed table
'1440 is the margin in twips, which is an inch, or
2.54*567(which is a cm in twips)
'rtpsCols is the array of rich text paragraph styles we
set up earlier
Call rtiItem.AppendTable(1,5,"",1440, rtpsCols)
Call docProcess.Save(True,False)
'In order to get the table elements we have to use a
couple of methods
'One is to get the table as a rich text table element
'The other is just to get navigate to the columns so we
can insert text
'This element enables us to navigate through the rich
text field
Set rtnav = rtiItem.CreateNavigator
'Get the table as a rich text table element so we can
add rows
Set rtt = rtnav.GetFirstElement(RTELEM_TYPE_TABLE)
'Once you set a style the rich text field has that
style until we say otherwise
Call rtiItem.AppendStyle(rtsTableHeader)
'This navigates us to the first table cell
Call rtnav.FindFirstElement
(RTELEM_TYPE_TABLECELL)
For iCol = 1 To 5 Step 1
'Add in our text then get the next cell
Call rtiItem.BeginInsert(rtnav)
Call rtiItem.AppendText(sHeaders(iCol-1))
Call rtiItem.EndInsert
Call rtnav.FindNextElement
(RTELEM_TYPE_TABLECELL)
Next
'Now we change the style to our row style
Call rtiItem.AppendStyle(rtsTableRow)
'Add a row, then go to the first cell in that row,
which will be the next cell
Call rtt.AddRow
Call rtnav.FindNextElement
(RTELEM_TYPE_TABLECELL)
For iCtr=0 To 4
'Add in our text then get the next cell
Call rtiItem.BeginInsert(rtnav)
Call rtiItem.AppendText(sData(iCtr))
Call rtiItem.EndInsert
Call rtnav.FindNextElement
(RTELEM_TYPE_TABLECELL)
Next
Call rtt.AddRow
Call rtnav.FindNextElement
(RTELEM_TYPE_TABLECELL)
For iCtr=0 To 4
Call rtiItem.BeginInsert(rtnav)
Call rtiItem.AppendText(sData(iCtr))
Call rtiItem.EndInsert
Call rtnav.FindNextElement
(RTELEM_TYPE_TABLECELL)
Next
Call docProcess.Save(True,False)
Set docProcess =
dcProcess.GetNextDocument(docProcess)
Wend
End If
End Sub
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip exchange by member Ben Connery. Please let others know how useful it is via the rating scale belowip. Do you have a useful Notes/Domino tip or code to share? Submit it to our monthly tip contest and you could win a prize and a spot in our Hall of Fame.
