Hier ein bisschen Code....
rtNavigator gehört zur Klasse und ist in beiden Funktionen verfügbar
Public Function createTable(_
docInput As NotesUiDocument,_
FieldName As String,_
Typ As String,_
Rows As Integer,_
Colums As Integer)As NotesRichTextTable
....
Call Me.rtItem.AppendTable(intRows,intColumns,,2.540 * TWIPS,rtpsStyle)
If Me.rtNavigator Is Nothing Then
Set Me.rtNavigator = Me.rtItem.Createnavigator
End If
Me.rtNavigator.GetLastElement(RTELEM_TYPE_TABLE)
Set createTable = Me.rtNavigator.GetElement
End Function ' createTable
Public Function Refresh(docTarget As NotesUIDocument,_
strFieldName As String,_
dbProduct As NotesDatabase)
...
If Me.rtNavigator.FindFirstString(strTag, RT_FIND_CASEINSENSITIVE) Then
' Position ist auf das Steuertag gesetzt
' Setzt eine Tabelle ein
Call Me.rtNavigator.SetPosition(Me.createTable(docTarget,FLDRTITEM,docTarget.Document.GetItemValue("Art")(0), 0, 0))
' Füllen der Tabelle
' Focus in die erste Zelle setzen
Me.rtNavigator.FindNextElement(RTELEM_TYPE_TABLECELL)
Call Me.rtItem.BeginInsert(rtNavigator)
' Inhalt einfügen
Call Me.rtItem.AppendText("Hipp Hipp Hurra")
' End der "Eingabe"
Call Me.rtItem.EndInsert()
Call Me.rtItem.Update()
End If
...
Call Me.rtItem.Compact()
End Function