1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,192
  • Репутация : 0

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

В документе есть поле типа 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

Поделиться