DocLink löschen per LS ... aber dann ?

[kottan]

Hallo Leute,

wie aus dem Subject unschwer zu erahnen ist, habe ich ein Problem mit dem Löschen eines Doclinks, bzw. der leeren Stelle, die das gelöschte Doclink hinterlässt.

Also, ich habe ein RTF mit einigen Doclinks untereinander. Jetzt lösche ich per LScript den DocLink an einer bestimmten Position (z.B. den 3. Doclink). Der Link verschwindet auch, aber an der Stelle bleibt dann eine Lücke in der "Liste".

Nun die Frage: Wie kann ich auch diese leere Stelle löschen, so dass wieder alle DocLinks untereinander stehen?


Hoffentlich kann mir einer von Euch helfen

Viele Grüsse
Björn

Hier mal mein Script zum Löschen des Links:

Sub Click(Source As Button)

   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   
   Dim UIdoc As NotesUIDocument
   Set UIdoc = ws.CurrentDocument
   Dim doc As NotesDocument
   Set doc = UIdoc.Document
   
   Dim rti As NotesRichTextItem
   Set rti = doc.GetFirstItem("Body")
   Set rtnav = rti.CreateNavigator
   
   DelPos = 3 ' // Position of list element to remove'
   i = 1 ' //counter for elements in loop to compare with value of 'DelPos'
   
   If rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) Then
      Do
         If i = DelPos Then
            ' // Remove Doclink from list
            Set rtlink = rtnav.GetElement
            Call rti.BeginInsert( rtnav )
            Call rti.EndInsert
            Call rtlink.remove
         End If
         
         i = i + 1
         Call rti.Update
         
      Loop While rtnav.FindNextElement
   End If

   Call doc.Save(True, True)

End Sub