Проход по линкам в RichText поле

2015-12-07T06:59:16Z

В документе есть поле типа NotesRichText, в нем несколько линков, Получаем в docOLD документ по ссылке.

Dim rti As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtlink As NotesRichTextDocLink
Dim flag As Boolean

Set rti = docMU.GetFirstItem("ParentOrg")      
flag = rtnav.FindFirstElement(RTELEM_TYPE_DOCLINK) 

Do While flag
Set rtlink = rtnav.GetElement    
If rtlink.DocUnID <>"" Then         '    есть линк
Set docOLD = MUdb.GetDocumentByUNID(rtlink.DocUnID) 'док по линку

If Not ( docOLD Is Nothing ) Then    
id1$ = docOLD.UniversalID
End If

End If

flag = rtnav.FindNextElement()    ' след ссылка 
Loop

Форум компьютерной помощи — Проход по линкам в RichText поле

Проход по линкам в RichText поле