例: DeselectAll method (NotesUIDocument - LotusScript)

次のボタンスクリプトは現在の選択を解除してからクリップボードの内容を現在のフィールドに貼り付けます。

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