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)