Dim table As New rtTable(Cint(Inputbox("Rows","enter rows","1")), Cint(Inputbox("Columns","enter columns", "1")))
Dim i As Integer, j As Integer
Dim rtp As rtextParagraph
For j=1 To table.ColumnCount
 For i =1 To table.rowCount
  Set rtp=New rtextParagraph("R" &i &"C" &j)
  rtp.hasParagraphBreak = True ' first text run must have this set
  table.cells(i,j).add rtp
 Next
 table.columns(j).CellWidth=one_CM
Next
ctxDump.addNewLine 1 ' the table needs a separate paragraph
ctxDump.add table
ctxDump.addnewline 1 ' also a paragraph behind it
|