*** BEGIN CODE oWord = GETOBJECT('','Word.Basic') ADIR(aFileList,"*.doc") FOR i = 1 TO ALEN( aFileList , 1 ) cFileName = aFileList[ i, 1 ] cDocName = UPPER( "c:\temp\sslist\" + cFileName) cTxtName = 'c:\temp\' + STRTRAN( cFileName, '.DOC', '.TXT' ) WAIT WINDOW 'Opening ' + cFileName NOWAIT NOCLEAR oWord.FileOpen(cDocName) WAIT WINDOW 'Saving ' + cTxtName NOWAIT NOCLEAR oWord.FileSaveAs(cTxtName, 3) WAIT CLEAR oWord.FileClose() NEXT oWord.FileExit() *** END CODEThanks for your input...