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
|