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