Check SpellBound.vcx File #9683

>How can I run 'word spell check' on text boxes?
>I found something but it's not nature and has problems.
>here is this

oWord=CREATEOBJECT("Word.Application")
>oWord.WindowState=2
>_CLIPTEXT=thisform.edit1.value
>oWord.Documents.Add.Content.Paste
>oWord.ActiveDocument.CheckSpelling()
>oWord.Visible=.F.
>=oWord.ActiveDocument.Select
>cText=oWord.Selection.Text
>cText=LEFT(cText,LEN(cText)-1)
>REPLACE thisform.edit1.value WITH cText
>_CLIPTEXT=""
>oWord.Documents.Close(0)
>oWord.Quit(0)