Добавляю ссылку в Rtf

  • Автор темы -
  • Дата начала
Статус
Закрыто для дальнейших ответов.

Гость
#1
Добавляю ссылку вот таким кодом:
REM Поместим ссылку на этот документ
Set item = New NotesRichTextItem(docst, "Contragent")
If item Is Nothing Then
Print "Не найдено поле"
Exit Sub
End If
Call item.AppendDocLink(doc, "Контрагент")
Call item.AppendText _
(" "+doc.Name(0) )
Call item.Update
Call docst.Save(False, False)


А ссылка текст doc.Name появляется только после закрытия и открытия документа.... знаю что проблемно с RichText работать, но все-таки можно что-нибудь сделать чтобы избежать этого, очень бы хотелось.... :)
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#2
Можно. Вот пример:
Код:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim rti As NotesRichTextItem
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

Set uidoc = ws.CurrentDocument
Set rti = New NotesRichTextItem(uidoc.Document, "Body")
Set doc = ...' получаем документ
Call rti.AppendDocLink(doc, "ссылка")
Call rti.Update

uidoc.Document.SaveOptions = "0"
Call uidoc.Close
uidoc.Document.Form = "Form" 'указываем свою форму
Set uidoc = ws.EditDocument(True, uidoc.Document, False)
Call uidoc.Document.RemoveItem("SaveOptions")
End Sub
 

Гость
#3
Спасибо, получилось!
Только документ "моргает", потому как закрывается и открывается снова....
Но похоже, что без этого никак не обойтись...
 
Статус
Закрыто для дальнейших ответов.