如果由用户指定输出路径及文件名：可：
Set talk offSet safe offClose all datalctablename="mytest" && 数据表路径及文件名lcfieldname = "timu" && 存放 word 文档的通用型字段名lcfilename = putfile("另存为","c:\初中数学试卷.doc","DOC") && 合并文档的输出文件名if empty(lcfilename) retuendifLocal lccompatible,lcextension,liendoffset; lctempfile,lihandlein,lihandleout,lihandleout1,lisize,llsuccessIf "." $ lcfilename lcfilename=left(lcfilename,at(".",lcfilename))Endiflcfilename=lcfilename+".doc"&& 建立 Word.applicationoWord=CREATEOBJECT("Word.application")oDoc=oWord.DocumentsoDoc.Add********************************Sele 0Use &lctablename exclusivemyalias=alias()lccompatible=set("COMPATIBLE") && 保存 "Compatible" 设置Set compatible on && 这样 FSIZE 函数返回文件大小, 而不是字段大小Wait wind "正在合并 word 文档，请稍侯 ... " nowaitScan lctempfile=sys(3) && 指定临时文件名 myrecn=recno() Sele &lcfieldname from mytest where recno()=myrecn into table &lctempfile Use Sele(myalias) lihandlein=fopen(lctempfile+".FPT") && 打开它的 .FPT liendoffset=fseek(lihandlein,610) Set compatible on && 这样 FSIZE 函数返回文件大小, 而不是字段大小 lisize=fsize(lctempfile+".FPT") && 决定数据大小 mykk=fread(lihandlein,lisize) && 读出数据 =fclose(lihandlein) && 关闭临时 .FPT.. lctempfile=lctempfile+".*" && 删除临时 .DBF/.FPT Erase (m.lctempfile) Set compatible &lccompatible && 恢复 "Compatible" If !empty(mykk) or !isnull(mykk) =strtofile(mykk,"c:\my_temp.doc",.F.) && 输出1个文档 oDoc.Open ("c:\my_temp.doc") oWord.Selection.WholeStory oWord.Selection.copy oWord.ActiveDocument.Close oWord.Selection.paste Erase C:\my_temp.doc EndifEndscanUseoWord.ActiveDocument.SaveAs(lcfilename)*oWord.visible=.T.oWord.Quit()Wait clearMessagebox("word 文档合并结束！ ",64,"信息")----------------------------------------------luweikan mailto:lwk2265@21cn.comhttp://www.myf1.net/bbs/dispbbs.asp?boardID=1&ID=136321
猫猫的心里话
加菲猫的VFP|狐友会社群接收投稿啦
加菲猫的VFP，用VFP不局限VFP，用VFP混合一切。无论是VFP，还是JS，还是C，只要能混合起来，都可以发表。
商业模式，销售技巧、需求规划、产品设计的知识通通可以发表。
暂定千字50元红包，，优秀的文章红包更大，一经发表，红包到手。
如何帮助使用VFP的人？
用VFP的人，有专业的，有非专业了，很多人其实是小白，问出的问题是小白，如果问题不对，我们引导他们问正确的问题。无论如何请不要嘲笑他们说帮助都不看，这么简单的问题都不会，嘲笑别人不行，而无法提出建设性答案，是很low的。
我们无论工作需要，还是有自己的软件，都是是需要真正的知识，如何让更多人学习真正的VFP知识呢，只需要点赞，在看，能转发朋友圈就更好了。
加菲猫的vfp倡导用"VFP极简混合开发，少写代码、快速出活，用VFP，但不局限于VFP，各种语言混合开发"。
我已经带领一百多名会员成功掌到VFP的黑科技，进入了移动互联网时代，接下来我们要进入物联网领域。
2025年狐友会社群会员继续招募中
社群会员获取的权益有：
祺佑三层开发框架商业版（猫框），终身免费升级，终身技术支持。
开放的录播课程有：
微信小程序，微信公众号开发，H5 APP开发，Extjs BS开发，VFP面向对象进阶，VFP中间层开发。
源码类资源有：
支付组件源码，短信源码，权限组件源码，一些完整系统的源码。这个可以单独出售的，需要的可以联系我。
会员也可以实现群内资源对接，可以接分包，合作等各项商业或技术业务
