* 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.