Bottom,我打错字,底的英文是buttom
授人以渔,不授人以鱼。
* * 用 Microsoft Word 编辑文章 * PROCEDURE EditDocument(tcFileName) LOCAL loWord, loDoc, lbNewFile lbNewFile = !FILE(tcFileName) WAIT "正在启动Microsoft Word,请稍候……" WINDOW NOWAIT loWord = CREATEOBJECT("Word.Application") && loWord 是Word进程 WAIT CLEAR WITH loWord loDoc = IIF(!lbNewFile, .Documents.Open(tcFileName), .Documents.Add(,,wdNewWebPage)) && loDoc 是进程文件集中文档之一 .Visible = .T. .Activate [....] IF !lbNewFile loDoc.Save ELSE loDoc.SaveAs2(tcFileName, wdFormatHTML) ENDIF * Save保存的是文档,故要用loDoc,Quit退出Word进程,是loWord的方法 .Quit ENDWITH ENDPROC