_SCREEN.Visible = .F.
LOCAL WORD,DOC,Uncorrected, Corrected
#DEFINE wdDialogToolsSpellingAndGrammar 828
#DEFINE wdDoNotSaveChanges 0
Uncorrected = "Helllo world!"
WORD = CREATEOBJECT("Word.Application")
DOC = WORD.Documents.ADD
WORD.SELECTION.TEXT = Uncorrected
WORD.Dialogs(wdDialogToolsSpellingAndGrammar).SHOW
IF LEN(WORD.SELECTION.TEXT) <> 1 Then
Corrected = WORD.SELECTION.TEXT
ELSE
Corrected = Uncorrected
ENDIF
DOC.CLOSE(WdDoNotSaveChanges)
WORD.QUIT