*** OLE Control Event *** (DblClick of RTFTextBox ActiveX)

if type('thisform.owordDoc')<>'O'
Thisform.addobject('oWordDoc','olecontrol','word.document')
endif

With Thisform.oWordDoc
.DoVerb(0)
.Object.Content = This.Text
.CheckSpelling
.Object.Application.Selection.WholeStory
This.text = .Object.Application.Selection.Text
** .Close(0)
EndWith

thisform.removeobject("oWordDoc")

***********************************************
With this code (in Visual FoxPro) is possible check simple text.
I need check RTF. I want pass the TEXTRTF property to
SpellChecker of the Word, that shows o formatted text
and I want that return in RTF too.

Excuse my english.
Someone can I help me, please?


Paulo Barros