StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>The document has to be saved in order to be able to read the richtext- item- contents.</p> <p>Then the NotesRichtextTable- Class is your point to start with. The follwoing example is mostly taken from the designer- help (yes, the one that is integrated in your designer, but also found <a href="http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/index.jsp?topic=/com.ibm.designer.domino.main.doc/H_NOTESRICHTEXTTABLE_CLASS.html" rel="nofollow">here at IBM</a>...)</p> <pre class="lang-vb prettyprint-override"><code>Dim ws as New NotesUIWorkspace Dim uidoc as NotesUIDocument Dim doc as NotesDocument Dim rti As NotesRichTextItem Dim rtnav As NotesRichTextNavigator Dim rtt As NotesRichTextTable Dim rtrange As NotesRichTextRange Set uidoc = ws.CurrentDocument Call uidoc.Save() 'otherwise you will not be able to get the contents of the richtextitem Set doc = uidoc.document Set rti = doc.GetFirstItem("Body") 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 Set rtt = rtnav.GetElement Set rtrange = rti.CreateRange Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL) firstFlag = True For i& = 1 To rtt.RowCount For j& = 1 To rtt.ColumnCount If Not firstFlag Then Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL) Else firstFlag = False End If Call rtrange.SetBegin(rtnav) Messagebox rtrange.TextParagraph,, _ "Row " & i& & _ ", Column " & j& Next Next </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload