Просмотр сообщений - АлександрИ

Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Сообщения - АлександрИ

Страницы: [1]
1
Вешаем на кнопку:

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

2
Нужно поместить содержимое поля 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 не содержит объектов".
Что не так тут. Помогите.



Страницы: [1]