Скопировать в буфер поле документа

Автор Тема: Скопировать в буфер поле документа  (Прочитано 605 раз)

АлександрИ

  • Новичок
  • *
  • Сообщений: 2
    • Просмотр профиля
    • E-mail
Скопировать в буфер поле документа
« : 14 Декабрь 2019, 14:46:40 »
Нужно поместить содержимое поля FIO из формы в буфер обмена Windows.
Поле FIO не скрыто, форма в режиме редактирования.
На кнопке формы навешан код на событие Click:

Sub Click(Source As Button)
   Set uidoc = workspace.CurrentDocument
   Call uidoc.GoToField("FIO")
   Call uidoc.SelectAll
   Call uidoc.Copy
End Sub

При нажатии на кнопку выходит сообщение об ошибке: "Объект Variant не содержит объектов".
Что не так тут. Помогите.



АлександрИ

  • Новичок
  • *
  • Сообщений: 2
    • Просмотр профиля
    • E-mail
Скопировать в буфер поле документа
« Ответ #1 : 28 Август 2020, 22:35:48 »
Вешаем на кнопку:

Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = ws.CurrentDocument
   
   uidoc.EditMode = True
   
   Call uidoc.GoToField("FIO")
   Call uidoc.SelectAll
   Call uidoc.Copy
      
End Sub