-
vfp教程之VFP调用Word创建文档
在应用系统的设计中,有时要求在程序中自动调用Microsoft 应用程序,如Word或Excel 等来创建文档或制作表格。在开发一个办公系统时,就采用了这种方法。
设计环境:
①MicroSoft Visual FoxPro 5.0中文版;
②Windows 98中文操作系统;
③Microsoft (R)Word 97。
首先创建一个表单Form1,在Form1上新建一个命令按扭Command1,并设置Command1的Caption 为“自动创建Word文档”。Command1的Click 过程包括下列命令
语句:c MessageTitle ='启动窗'
c MessageText ='启动Microsoft (R)
Word 97'nDialogType =0+64+0
nAnswer =MESSAGEBOX
(c MessageText ,nDialogType ,c MessageTitle)
filename ='99年工作计划'
public objwdoc
nllocaleId =sys(3004)
=sys(3006,1033)
objWDdoc =crea("word .basic")
objwddoc .appshow
objWDdoc .appmaxi mize
objwddoc .filenewdefault
objwddoc .filesaveas("&filename")
=sys(3006,val(nlLocaleId))
c MessageTitle ='结束窗'
c MessageText ='文档创建完毕'+chr(13)+'退出Mi—
crosoft (R)Word 97'
nDialogType =0+64+0
nAnswer =MESSAGEBOX(c MessageText ,nDialogType ,
c MessageTitle)
这样,在命令窗口中运行上述Form 时,单击“自动创建Word 文档”按扭,则自动调用Word 97创建文档,且文档的名字为“99年工作计划”。
(海军航空工程学院孔波264001)
设计环境:
①MicroSoft Visual FoxPro 5.0中文版;
②Windows 98中文操作系统;
③Microsoft (R)Word 97。
首先创建一个表单Form1,在Form1上新建一个命令按扭Command1,并设置Command1的Caption 为“自动创建Word文档”。Command1的Click 过程包括下列命令
语句:c MessageTitle ='启动窗'
c MessageText ='启动Microsoft (R)
Word 97'nDialogType =0+64+0
nAnswer =MESSAGEBOX
(c MessageText ,nDialogType ,c MessageTitle)
filename ='99年工作计划'
public objwdoc
nllocaleId =sys(3004)
=sys(3006,1033)
objWDdoc =crea("word .basic")
objwddoc .appshow
objWDdoc .appmaxi mize
objwddoc .filenewdefault
objwddoc .filesaveas("&filename")
=sys(3006,val(nlLocaleId))
c MessageTitle ='结束窗'
c MessageText ='文档创建完毕'+chr(13)+'退出Mi—
crosoft (R)Word 97'
nDialogType =0+64+0
nAnswer =MESSAGEBOX(c MessageText ,nDialogType ,
c MessageTitle)
这样,在命令窗口中运行上述Form 时,单击“自动创建Word 文档”按扭,则自动调用Word 97创建文档,且文档的名字为“99年工作计划”。
(海军航空工程学院孔波264001)
最新更新
nodejs爬虫
Python正则表达式完全指南
爬取豆瓣Top250图书数据
shp 地图文件批量添加字段
爬虫小试牛刀(爬取学校通知公告)
【python基础】函数-初识函数
【python基础】函数-返回值
HTTP请求:requests模块基础使用必知必会
Python初学者友好丨详解参数传递类型
如何有效管理爬虫流量?
SQL SERVER中递归
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
这是目前我见过最好的跨域解决方案!
减少回流与重绘
减少回流与重绘
如何使用KrpanoToolJS在浏览器切图
performance.now() 与 Date.now() 对比
一款纯 JS 实现的轻量化图片编辑器
关于开发 VS Code 插件遇到的 workbench.scm.
前端设计模式——观察者模式
前端设计模式——中介者模式
创建型-原型模式