Examples: Clear method (NotesUIDocument - LotusScript®)

This script deletes the contents of the current field. If the current field is empty, it does nothing.

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  If ( uidoc.FieldGetText( uidoc.CurrentField ) <> "" ) Then
    Call uidoc.SelectAll
    Call uidoc.Clear
  End If
End Sub