Listing A Procedure That Checks the Spelling of an Entered Word

Sub SpellCheckTest()

' Get the word from the user word2Check = InputBox("Enter a word:") 1 Spell-check it result = Application.CheckSpelling(word2Check)

1 Display the result to the user

If result = True Then

MsgBox & word2Check & 111 is spelled correctly!"

Else

MsgBox "Oops! '" & word2Check & "' is spelled incorrectly.1 End If End Sub

0 0

Post a comment