LPARAMETERS pcText LOCAL oWord, cText IF EMPTY(pcText) RETURN ENDIF oWord = CreateObject("word.application") WITH oWord .Documents.Add .Selection.TypeText(pcText) .Visible = .T. .ActiveDocument.CheckGrammar .Selection.WholeStory cText = .Selection.Text .ActiveDocument.Close(0) .Visible = .F. .Quit ENDWITH RELEASE oWord RETURN cTextHope this helps,