Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)
Previous Next
Subject: Notes RichTextNavigator and tables
Feedback Type: Question
Product Area: Notes Client
Technical Area: Application Development
Platform: Windows
Release: 8.5.2
Reproducible: Not applicable

Hi,
Can't believe I'm back on these forums after so many years!
==
OK, so I've having some issues with a Notes Rich Text Navigator.
The idea is that I'll use the GetField "hidden feature" to get the contents of a Rich Text field. It doesn't actually work great, but it'll do for what I want.

However, I only want to do the GetField if the relevant notes RichText item (in this case the field is called Attachments), contains a table (or one of the other special elements).

My Document contains a "Tabbed Table". Inside the Tabbed Table is other "normal" tables (they look like rows and columns in Excel).
Unfortunately, this format has been used a lot in this specific database.
I can get the text from the table OK without any formatting (in fact I output to a pdf, different story) but it would be nice if we could get at least a vague representation of the table for the user as well.

But in my RichTextNavigator it just sees "Paragraph Runs" and nothing else.
Selected code used:
'Check the contents of the fields before we export
Dim rtn1 As NotesRichTextNavigator
Dim rtn2 As NotesRichTextNavigator
Dim rtn3 As NotesRichTextNavigator
Dim rt1 As Variant
Dim rt2 As Variant
Dim rt3 As Variant
If(docServer.HasItem("Attachments")) Then
Set rt1 = docServer.GetFirstItem("Attachments")
End If

If(docServer.HasItem("AdminComm")) Then
Set rt2 = docServer.GetFirstItem("AdminComm")
End If
If(docServer.HasItem("ProjCoordComm")) Then
Set rt3 = docServer.GetFirstItem("ProjCoordComm")
End If
Set rtn1 = rt1.CreateNavigator
Set rtn2 = rt2.CreateNavigator
Set rtn3 = rt3.CreateNavigator
'Dim validateRTI As Boolean
' validate = False
'Dim resultAtt1
Dim resultAtt1 As Variant
Dim resultAtt2 As Variant
Dim resultAtt3 As Variant

resultAtt1 = validateRTI(rtn1)
resultAtt2 = validateRTI(rtn2)
resultAtt3 = validateRTI(rtn3)

Then the validateRTI:

Function validateRTI(rtn As NotesRichTextNavigator)
'Other Types
'rtn.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
'Or _
'rtn.FindFirstElement(RTELEM_TYPE_TEXTRUN) Then

validateRTI = False

If (rtn.FindFirstElement(RTELEM_TYPE_DOCLINK) Or _
rtn.FindFirstElement(RTELEM_TYPE_FILEATTACHMENT) Or _
rtn.FindFirstElement(RTELEM_TYPE_OLE) Or _
rtn.FindFirstElement(RTELEM_TYPE_SECTION) Or _
rtn.FindFirstElement(RTELEM_TYPE_TABLE) Or _
rtn.FindFirstElement(RTELEM_TYPE_TABLECELL)) Then
validateRTI = True

Else
validateRTI = False
'If Not emptyRTField(uidoc, fieldname) Then validate = True

End If

End Function

Any ideas? What I'm expecting is that when it sees the table it'll see it as say TELEM_TYPE_TABLE or RTELEM_TYPE_TABLECELL

Later on I added some script with a message box and it seems to see the table as a text run or paragraph run...


Feedback number WEBBB3EKG5 created by ~Evelyn Cisnither on 08/07/2018

Status: Open
Comments:





Printer-friendly

Search this forum

Member Tools


RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS