Notesrichtextrange

Set rti = doc.GetFirstItem("LinkDocs")
Set rtnav = rti.CreateNavigator
 
If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
Set rtrange = rti.CreateRange
c = 0
Do
Redym Preserve ca© As Variant
Call rtrange.SetBegin(rtnav)
ca©=Cstr(c+1) & ". " & Fulltrim(rtrange.TextParagraph)
c = c + 1
Loop While rtnav.FindNextElement(RTELEM_TYPE_TEXTPARAGRAPH)
Else
Messagebox "В документе нет связок",, "Уведомление системы!"
Exit Sub
End If
]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
]]]]]]]]]]]]]]]
Dim result As Variant
Dim delRow As Integer   Номер строки для удаления
result = ws.Prompt(PROMPT_OKCANCELLIST, "Выбор", "Выберите документ для очистки связи", ca(0), ca)
delRow = Cint(Strleft(result, "."))
]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
]]]]]]]]]]]]]]]
If Not rtnav.FindNthElement(RTELEM_TYPE_TEXTPARAGRAPH, delRow) Then
Messagebox "Element " & delRow%,, "Cannot find element"
Exit Sub
End If
Set rtrange = rti.CreateRange
Call rtrange.SetBegin(rtnav)
Call rtrange.SetEnd(rtnav)
If Messagebox("Вы действительно хотите удалить данную связку?", 4+32, rtrange.TextParagraph) = 6 Then
Call rtrange.Remove
 
If Not rtnav.FindNthElement(RTELEM_TYPE_DOCLINK, delRow) Then
Messagebox "Элемент " & delRow%,, "Элемент не найден"
Exit Sub
End If
 
Set rtlink = rtnav.GetElement
rtlink.Remove
 
Call rti.Compact
Call rti.Update
Call doc.Save(True, False)
Call ws.CurrentDocument.Close(True)
End If