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

Véase también

SpellCheck method

Glosario