Ich habe folgenden Code:
Dim session As New NotesSession
Dim dbThis As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim rti As NotesRichTextItem
Dim rtNav As NotesRichTextNavigator
Set dbThis = session.CurrentDatabase
Set dc = dbThis.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Set rti = doc.GetFirstItem("Body")
Set rtNav = rti.CreateNavigator
If rtNav.FindNthElement(RTELEM_TYPE_TEXTPARAGRAPH, 2) Then
Call rti.BeginInsert(rtNav)
'Call rti.AddNewLine(1)
Call rti.AddPageBreak 'Hier kommt die Fehlermeldung 'Method is not available'
Call rti.EndInsert
Call doc.Save(True, False)
End If
Wenn ich diesen abarbeite kommt oben als Kommentar angegebene Fehlermeldung. Wenn ich statt dessen die auskommentierte Zeile mit AddNewLine verwende., läuft es richtig.
Die ist nur ein stark abgerüsteter Test. Lt. Designer-Hilfe kann aber auch bei AddPageBreak der Einfügepunkt über BeginInsert festgelegt werden.
Was ist daran falsch?
Hallo Jürgen,
sorry ich hatte überlesen, dass du in deinem Code ein bereits vorhandenes RT-Item verwendest. Dann zählt natürlich meine Aussage nicht.
(Ich kann mich aber dunkel dran erinnern, dass es bestimmte Funktionen gab, die "ganz am Anfang" des Items nicht das tun was man erwartet.)
Dein Code schaut ansich richtig aus.
Evtl hilft dir aber das: Dein Navigator steht ja noch am Paragraphen. Versuch mal den Navigator zum ersten RTELEM_TYPE_TEXTRUN "weiterzuschieben", z.B. so:
If rtNav.FindNthElement(RTELEM_TYPE_TEXTPARAGRAPH, 2) Then
if rtNav.FindNextElement(RTELEM_TYPE_TEXTRUN) Then
....
Gruß
Roland