rtLib — Notes Rich Text Management Library Documentation of rtLib — Notes Rich Text Management Library Download rtLib — Notes Rich Text Management Library FAQ of rtLib — Notes Rich Text Management Library Purchase rtLib — Notes Rich Text Management Library Feedback about rtLib — Notes Rich Text Management Library

Cookbook

Table processing - check for Merged cells

Start search Mail feedback Back to Description


rtTable rtCell rtTableStyle

addNewLine (rtContainer) addNewLine (rTextParagraph) appendText (rtContainer) appendText (rTextParagraph) Cells Collection (rtContainer) Collection (rtEnumeration) ColumnCount getRichTextItem MergeColumns MergeRows RowCount

Code fragment from sample "Table processing - check for Merged cells"; see full running samples in downloadable help.
dim table as rtTable, c as rtCell, o as variant

Dim style as rtStyle, tableBasic as rtTableStyle, rowDisplay as rtRowDisplayStyle' these are just defined for indexer to find references to the classes/methods used
call ctxDump.getRichTextItem(doc,"Body")
' get the table

Set coll = ctxDump.Collection (PARSE_GROUP_TABLE)' this parses and retrieves the tables
set table = coll.getFirstElement' we just have one table - otherwise we need to work through the collection

dim i%, j%

for i = 1 to table.rowCount
for j = 1 to table.columnCount
ctxDump.addNewLine 1
ctxDump.AppendText i & ":" & j & " MergeRows - " & cstr(table.cells(i,j).MergeRows) & "; MergeColumns - " & cstr(table.cells(i,j).MergeColumns)
next j
Next i