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)I remember the following discussion at MSDN http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=1589083&SiteID=1 that may be of help.