Getting Paragraph from a Rich Text Item class using navigators (richtextnavigator)

HCL Domino Domino Forum
1

in a document there is a rich text field. This field can contain multiple tables, cells, Each cell can have multiple paragraphs.I want to get the values stroed in multiple paragraphs. The code i have written is:

Dim Mainnavigator As notesrichtextnavigator, paranavigator As notesrichtextnavigator

Dim CellNavigator As notesrichtextnavigator

Dim MainRange As notesrichtextrange, CellRange As notesrichtextrange, ParaRange As NotesRichTextRange

Dim TotalTables As Integer, TotalParas As Integer

Dim TotalCells As Integer

Dim TableCtr As Integer

Dim CellCtr As Integer

Dim ParaCtr As Integer

Dim para As String

Set s = New notessession

Set doc = s.DocumentContext

Set bodyitem = doc.GetFirstItem(“textBuffer”) 'rich text item

Set Mainnavigator = bodyitem.CreateNavigator

Totaltables = GetCount(MainNavigator, RTELEM_TYPE_TABLE)

For TableCtr = 1 To totalTables

If mainNavigator.findNthElement(RTELEM_TYPE_TABLE, tableCtr)  Then

Set Mainrange = BodyItem.CreateRange

Call mainRange.SetBegin(mainNavigator)

Call mainRange.SetEnd(mainNavigator)

Set CellNavigator = MainRange.Navigator

TotalCells = getCount(Cellnavigator, RTELEM_TYPE_TABLECELL)

For CellCtr = 1 To totalCells

  If CellNavigator.FindNthElement(RTELEM_TYPE_TABLECELL, CellCtr) Then

      Set CellRange = BodyItem.CreateRange

      Call CellRange.SetBegin(CellNavigator)

      Call CellRange.Setend(CellNavigator)

      Set Paranavigator = CellRange.Navigator

      para = ""



     TotalParas = getcount(Paranavigator, RTELEM_TYPE_TEXTPARAGRAPH)



     For ParaCtr = 1 To TotalParas

				 

          If Paranavigator.FindNthElement(RTELEM_TYPE_TEXTPARAGRAPH, Paractr) Then

						

					Set ParaRange = BodyItem.CreateRange

Call ParaRange.SetBegin(Paranavigator)

Call ParaRange.SetEnd(Paranavigator)

		

					Msgbox Pararange.TextParagraph

          End If

       Next

End If

Next

End If

Next

Function GetCount(rtnav As notesrichtextnavigator, elementType As Integer) As Integer

GetCount = 0

If rtnav.FindFirstElement(elementType) Then

	Do

		GetCount = GetCount + 1

	Loop While rtnav.FindNextElement(elementType)

End If

End Function

the getCount function for the paragraph always returns the 1st paragraph in the cell. How do i go to the next line of the same cell.

Any help will be appreciated