What about MS Word?


Local lcString,oWord,loDocument,loSelection,loSelectionFinal
oWord = Createobject("word.application")
With oWord
.Documents.Add()
.Documents(1).Content = this.Value
.Documents(1).CheckSpelling()
.Selection.WholeStory()
If .Selection.Text # this.value
This.Value = .Selection.text
Thisform.Refresh()
Else
Messagebox("No spelling mistakes found","Congradulations")
Endif

*.Documents(1).Close(.F.)
*.Quit()

Endwith
Release oWord