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
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