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

Тема в разделе "Lotus - Программирование", создана пользователем -, 19 фев 2007.

Статус темы:
Закрыта.
  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 работать, но все-таки можно что-нибудь сделать чтобы избежать этого, очень бы хотелось.... :)
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Можно. Вот пример:
    Код (Text):
    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. Гость

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

Поделиться этой страницей