请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 562|回复: 2

[Lazarus实战宝典] Lazarus控制WPS文字打开文件的例子

[复制链接]

该用户从未签到

发表于 2017-8-22 13:56:53 | 显示全部楼层 |阅读模式
下面的例子展示如何启动、关闭WPS文字,并打开一个已有的文字文件。
代码如下:

  1. uses
  2. .... , ComObj;                // 增加的单元

  3. const
  4. OLE_name = 'kwps.application';                  

  5. var
  6.   wpsapp:olevariant;
  7.   fName: variant;

  8. {启动WPS并打开文件:1.wps}
  9. procedure TForm1.Button1Click(Sender: TObject);
  10. begin
  11.   wpsapp:=createoleobject(OLE_name);
  12.   wpsapp.Visible := true;
  13.   fName:=ExtractFilePath(ParamStr(0)) + '\1.wps';           // 文字文件: 1.wps
  14.   wpsapp.Documents.open(fName);
  15. end;

  16. {关闭WPS}
  17. procedure TForm1.Button2Click(Sender: TObject);
  18. begin
  19.     wpsapp.quit;
  20. end;
复制代码

回复

使用道具 举报

该用户从未签到

 楼主 发表于 2017-8-22 14:01:13 | 显示全部楼层

RE: Lazarus控制WPS文字打开文件的例子

针对: WPS OFFICE 2016
回复 支持 反对

使用道具 举报

QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

GMT+8, 2017-11-24 17:12 , Processed in 0.043806 second(s), 13 queries , Redis On.

Powered by Discuz! F1.0 Build 20160930

© 2001-2017 Comsenz Inc. & Discuz! Fans

快速回复 返回顶部 返回列表