* Convert .TXT to .DOC format >>>>FUNCTION ConvertDoc >>>>LPARAMETERS lcTxtFile >>>> >>>>#include "wdconst.h" >>>>#DEFINE wdAutoInchesToPoints 72 >>>> >>>>LOCAL oWord as "word.application" >>>>oWord = CREATEOBJECT('Word.Application') >>>> >>>>lcFileDoc = LEFT(lcTxtFile,ATC('.txt',lcTxtFile)-1)+'.doc' >>>>IF FILE(lcFileDoc) >>>> ERASE (lcFileDoc) >>>>ENDIF >>>>IF file(lcTxtFile) >>>> * open text file >>>> oWord.WordBasic.FileOpen(lcTxtFile) >>>> oWord.Selection.TypeParagraph >>>> oWord.ActiveDocument.Select >>>> WITH oWord.Selection >>>> .Range.ListFormat.RemoveNumbers >>>> .Font.Name = "Courier New" >>>> .Font.Size = 8 >>>> ENDWITH >>>> WITH oWord.ActiveDocument.PageSetup >>>> .LineNumbering.Active = .F. >>>> .Orientation = 1 >>>> .BottomMargin = .3 * wdAutoInchesToPoints >>>> .TopMargin = .25 * wdAutoInchesToPoints >>>> .LeftMargin = 1.0 * wdAutoInchesToPoints >>>> .RightMargin = 1.0 * wdAutoInchesToPoints >>>> ENDWITH >>>> * save document into the doc file in the Word format with password >>>> With oWord.ActiveDocument >>>> .Protect(wdAllowOnlyReading,.F.,"xyz123xyz") >>>> .RemovePersonalInformation = .F. >>>> .RemoveDateAndTime = .F. >>>> .SaveAs(lcFileDoc,0) >>>> EndWith >>>> oWord.WordBasic.FileClose() >>>>ENDIF >>>>oWord.Quit >>>>RETURN>>>>I've experienced "This file is in use by another application or user. (C:\Documents and Settings\...\normal.dot)" Then it doesn't properly close the application.