Examples: DeselectAll method (NotesUIDocument - LotusScript)

This button script deselects the current selection before pasting the contents of the Clipboard into the current field.

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.DeselectAll
  Call uidoc.Paste
End Sub