oWord=CREATEOBJECT("Word.Application") && Open Word oWord.WindowState=2 && Minimized cSource="mytable.mymemofield" && memo field cContents=EVAL(cSource) && Get contents _CLIPTEXT="" && Clear Clipboard _CLIPTEXT=cContents && Set Clipboard to memo oWord.Documents.Add.Content.Paste && Paste into new word doc oWord.ActiveDocument.CheckSpelling() && Run spellchecker ** The following line is necessary because spell checking turns on ** the Word window. oWord.Visible=.F. =oWord.ActiveDocument.Select && Select all word text cText=oWord.Selection.Text && Put it into a cvar IF cText # cContents && If changed REPLACE mytable.mymemofield WITH cText && Replace old w/new ENDIF _CLIPTEXT="" && Clear Clipboard oWord.Documents.Close(0) && Close new doc (no save) oWord.Quit(0) && Close Word (no save)See? Fun stuff. You can also try this for grammar by substituting CheckGrammar() for CheckSpelling.