
对于字符型或备注型字段,只要用selection.typetext(...)即可插入;对于通用型字段,可用KEYBOARD和
MIDIFY GENERAL 命令将该字段打开并复制到剪贴板,然后用selection.paste粘贴到WORD中。此时还未大功
告成,因为粘贴进来的内容是一个独立的OLE对象,不能象其它文字一样直接编辑。因此要将其在另一个窗口
打开,再全选、复制、粘贴回第一个窗口就成功了。
PUBLIC oWord
oWord = CREATEOBJECT("Word.Application") &&创建一个WORD应用程序对象
WITH oWord
.visible=.t. && 显示WORD
.documents.add && 打开一个空的WORD文档
GO TOP
DO WHILE NOT EOF()
.Selection.TypeText(ALLTRIM(no)+" ")&& 在该文档中插入试题编号
.Selection.TypeText(content)&&插入试题的内容(题面)
.Selection.TypeParagraph
.Selection.TypeText("Contents of the General Field:")
.Selection.TypeParagraph
.Selection.TypeParagraph
KEYBOARD "{ctrl+c} {ctrl+w}" && 在键盘缓冲区中放入两个组合键,
&&其作用是将通用字段编辑器中的WORD文档复制到剪贴板
MODIFY GENERAL ANSWER &&打开通用字段ANSWER于通用字段编辑器中,
&& 该命令需放在KEYBOARD命令之后。.
.Selection.Paste&&将刚才用KEYBOARD命令复制到剪贴板的内容粘贴到本文档中
.Selection.MoveLeft(1,1,1)&&将光标向左移,并选中该OLE对象
.Selection.inlineShapes(1).OLEFormat.open&&将该OLE对象在另一个窗口中打开
.Selection.WholeStory&&全部选中新打开的窗口中的内容
.Selection.Copy&&复制到剪贴板
.Windows(1).Activate&&激活第一个文档
.Selection.Paste&&将新窗口中的内容覆盖原来的OLE对象,
&&这样该OLE对象(WORD文档)即可被编辑
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeParagraph
SKIP
ENDDO
ENDWITH
quicker mailto:c_x_g@sohu.com
猫猫的心里话
加菲猫的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中间层开发。
源码类资源有:
支付组件源码,短信源码,权限组件源码,一些完整系统的源码。这个可以单独出售的,需要的可以联系我。
会员也可以实现群内资源对接,可以接分包,合作等各项商业或技术业务


