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