Hallo,
ich hatte mir mal in dem Zusammenhang die Methode "BeginInsert" notiert. Vielleicht hilft die dir weiter.
Call NotesRichText.BeginInsert(element,[after])
After Boolean: True puts the insertion position at the end
False (default) puts the insertion position at the beginning of the element
Christoph
Hier ein kleines Testscript, welches ein vorhandenes Dokument ermittelt, in diesem das RichText-Feld "Testfeld" einstellt und vor
dem bereits vorhandenen Text einen neuen Text einfuegt.
Mit dem Navigator kannst Du sogar relativ genau steuern, wo er den Text einfuegen soll. da Du mit diesem die Postion zum einfuegen
einstellen kannst.
Option Public
Option Declare
Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim vw As NotesView
Dim doc As NotesDocument
Dim rtTest As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Set db = s.Currentdatabase
If db Is Nothing Then Exit Sub
If db.Isopen Then
Set vw = db.GetView("Testview")
If vw Is Nothing Then Exit Sub
Call vw.Refresh()
vw.Autoupdate = False
Set doc = vw.Getdocumentbykey("frmTestInsert", True)
If doc Is Nothing Then Exit Sub
If Not doc.HasItem("Testfeld") Then Exit sub
Set rtTest = doc.Getfirstitem("Testfeld")
If rtTest Is Nothing Then Exit Sub
Set rtnav = rtTest.Createnavigator()
If rtnav Is Nothing Then Exit Sub
' set the insert pointer before the first text
Call rtnav.Findfirstelement(RTELEM_TYPE_TEXTPARAGRAPH)
Call rtTest.Begininsert(rtnav)
Call rtTest.Appendtext("Nun ist dies die erste Zeile")
Call rtTest.Addnewline(1)
Call rtTest.Endinsert()
Call doc.Save(True, False)
End If
End Sub
Andreas