Delphi操作Wps文字-delphi文本读写操作

与 Office 办公软件交互,从代码中生成电子表格,文本文档及幻灯片的能力对办公来说是非常有价值的 , 可以节省大量时间避免做重复任务 。
WPS是1988年创建的,是由金山软件股份有限公司自主研发的一款办公软件套装 , 可以实现办公软件最常用的文字、表格、演示,PDF阅读等多种功能 。具有内存占用低、运行速度快、云功能多、强大插件平台支持、免费提供海量在线存储空间及文档模板的优点 。随着 WPS 的不断发展和进步以及国产化的不断推进 , WPS 的用户也越来越多,所以,在软件开发中,WPS 自动化操作也变得越来越重要 。
本文主要通过简单的示例来说明使用 Delphi|Lazarus 开发工具进行 Office Automation 的操作,以 WPS 文字为例来描述 。其次,介绍 WPS 官方的客户端二次开发文档使用 。
【Delphi操作Wps文字-delphi文本读写操作】示例:【Hello world 之 WPS 文字】使用 Delphi/Lazarus 打开 WPS 创建文档并输入“Hello world” 。
首先创建项目 , 在窗体中添加一个按钮“Hello world 之 WPS 文字”,在 Form 类中增加私有成员:
WpsApp: variant;// Wps 应用Doc: variant;// 文档
在 uses 部分添加 Comobj 单元;
编辑按钮的单击事件:
procedure TFormMain.WpsButtonClick(Sender: TObject);beginTryWpsApp := CreateOleObject('Kwps.Application');ExceptShowMessage('没有安装wps');Exit;end;WpsApp.Visible := True;Doc := WpsApp.Documents.Add;Doc.Content.text := 'Hello world!';Doc.SaveAs2('hello.docx');end;
注:WPS 文字应用的名称为 Kwps.Application,特别重要!
窗体的 Destroy 事件:
procedure TFormMain.FormDestroy(Sender: TObject);beginDoc.Close;WpsApp.Quit;end;
运行程序,结果如下图:

Delphi操作Wps文字-delphi文本读写操作

在进行 WPS 二次开发时,一定会使用到相应的 API,如何去查找 API 文档呢?答案当然是官方网站了 。
打开:https://open.wps.cn
Delphi操作Wps文字-delphi文本读写操作

点击“开发文档”链接,如下图:
Delphi操作Wps文字-delphi文本读写操作

点击“客户端开发”,如下图:
Delphi操作Wps文字-delphi文本读写操作

点击“WPS 加载项”中的“WPS基础接口”展开,点击“文字API参考”即为 WPS 文字的 API 内容,如下图:
Delphi操作Wps文字-delphi文本读写操作

在 WPS 基础接口还包含了表格、演示 API 用于操作 Excel 表格和 PowerPoint 演示文稿 。

相关经验推荐