献给曾经为打印烦恼的狐友
在网坛上有很多关于VFP控制EXCEL的例子，但有很多朋友要在VFP中控制WORD来进行打印和编辑，论坛上的例
子相对较少经过一段时间思考终于想也了一个比较简单的方法可以实现。。。。。。
附上源代码，供大家研究和控讨！！（不足之处：执行程序用的时间较长）
另希望有人能把进度条的使用方法贴出来（小弟不会，初学者要的那种！！）
LOCAL m,y,savefilem=subs((dbf()),11,40)y=subs((m),1,(len(m)-4))myword=createobject("word.application")mydoc=myword.documentsMYword.Caption="报价系统调用word 设计:邓佰刚"wait "正在进行文件的准备，可能需要较长的时间，请耐心等待................" window timeout 2mydoc.open("C:\denfox\date\type1.doc")myword.selection.wholestorymyword.selection.copymyword.activedocument.closemydoc.open("C:\denfox\date\type.doc")myword.selection.pastewait "正在进行数据的转换，可能需要较长的时间！请耐心等待................" window timeout 2use (y) count for 单价<3456789 to k GOTO TOP FOR I=1 TO kgoto iscatter to xwait "正在写入第"+alltrim(str(i,5))+"条记录................." window nowaitmyword.selection.wholestorymyword.selection.insertafter(chr(13))myword.selection.insertafter(" "+x+" "+x(2)+str(x(5))+".00"+" "+str(x(6))+" "+str(x(7))+"0.00")myword.selection.insertafter(chr(13))myword.selection.insertafter(" *规格： "+allt(x(3)))myword.selection.insertafter(chr(13))myword.selection.insertafter(" *牌子： "+allt(x(4)))myword.selection.insertafter(chr(13))myword.selection.insertafter(" ")endformyword.selection.insertafter(chr(13))mydate=subst(dtos(date()),1,4)+" 年 "+subst(dtos(date()),5,2)+"月 "+subst(dtos(date()),7,2)+"日"myword.selection.insertafter(chr(13))set defa to c:\denfox\docsavefile=("c:\denfox\date\lsfile2")wait "正在打开WORD，请稍等................" window timeout 2myWord.ActiveDocument.SAVEAS (savefile)set defa to c:\denfoxmyword.selection.copymyword.activedocument.closemyword.quit()m=subs((dbf()),11,40)y=subs((m),1,(len(m)-4))rest from (y)myword1=createobject("word.application")mydoc1=myword1.documentsmydoc1.open("C:\denfox\date\type.doc")wait "正在写入文件尾，请稍等................" window timeout 2myword1.selection.insertafter(chr(13))myword1.selection.insertafter(chr(13))sum 总价 to zjjjmyword1.selection.insertafter(" 合计:"+allt(str(zjjj))+".00")myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" 工程安装费："+" "+ALLT(STR(AZ))+".00") myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" 运输夫力费："+" "+ALLT(STR(FL))+".00") myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" 工程税管费："+" "+ALLT(STR(SG))+".00") myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" 工程总造价："+" "+ALLT(GCZJDX)+".00") myword1.selection.insertafter(chr(13))wait "正在进行文件尾处理，请稍等................" window timeout 2myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" 备注：_________________________________________________________________________ ")myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" __________________________________________________________________________ ")myword1.selection.insertafter(chr(13))myword1.selection.insertafter(chr(13))myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" 甲方(盖章):"+" "+"乙方(盖章)")myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" 深圳百年厨具有限公司")myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" 成都分公司")myword1.selection.insertafter(chr(13))myword1.selection.insertafter(chr(13))myword1.selection.insertafter(chr(13))myword1.selection.insertafter(chr(13))myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" 代表(签字):"+" "+"代表(签字)")myword1.selection.insertafter(chr(13))myword1.selection.insertafter(chr(13))myword1.selection.insertafter(" 二零零三年 月 日")savefile1="c:\denfox\date\lsfile"myWord1.ActiveDocument.SAVEAS (savefile1)myword1.activedocument.closemyword1.quit()wait "正在进行文件尾合并，请稍等................" window timeout 2myword2=createobject("word.application")mydoc2=myword2.documentsmydoc2.open(savefile1)myword2.selection.pasteset defa to c:\denfox\docsavefile=putfile("文件名",(y),"doc")wait "正在打开WORD，请稍等................" window timeout 2myWord2.ActiveDocument.SAVEAS (savefile)set defa to c:\denfoxmyword2.ActiveDocument.PrintPreview &&预览打印myword2.visible=.t.
猫猫的心里话
加菲猫的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中间层开发。
源码类资源有：
支付组件源码，短信源码，权限组件源码，一些完整系统的源码。这个可以单独出售的，需要的可以联系我。
会员也可以实现群内资源对接，可以接分包，合作等各项商业或技术业务
