I’m having a Problem. If I execute the following code snippet, the RichTextNavigator does not find the Table even though there is one in my RichTextItem.
<------------code-------------->
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set rtitem = doc.GetFirstItem( “Body” )
Set rtnav = rtitem.CreateNavigator
If rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL) Then
MsgBox “Table found”
Else
MsgBox “No Table found”
End If
<------------code-------------->
What is wrong with it? Anybody who experiences similar problems with NotesRichTextNavigator? Help would be appreciated.
Subject: NotesRichTextNavigator does not find Table
Probably a nested table. Is the rich text field inside a table cell? This is one of the worst gotchas of the new Notes 6 table code. You can’t see nested tables at all, even if the table isn’t nested, but there is a table cell around the rich text field.
after creating table, you have to save the document.if you create the table programmatically with doc. save, if you create the table manually in the ui, save the ui-doc.
I create the Table programmatically and use the doc.Save( True, False ). The strange thing is, that the table is defenitely there, I SEE IT. But if I initialize a NotesRichTextNavigator to get to that Table it behaves as if there would be no Table.
(Which means ‘rtnavigator.FindFirstElement( RTELEM_TYPE_TABLE )’ returns boolean ‘False’ )