求一个wps打开PPTX 关闭PPTX例子源码

lulume1

求一个wps打开PPTX  关闭PPTX例子源码

z573277679

WPS程序.写属性 (“WindowState”, 3)
示例.e (959.07 KB, 下载次数: 0)

2 小时前 上传

点击文件名下载附件

Giggle梦痕

https://bbs.ijingyi.com/forum.ph ... 7&highlight=ppt 试试这个呢

lulume1

Giggle梦痕 发表于 2025-12-25 10:30
https://bbs.ijingyi.com/forum.php?mod=viewthread&tid=14730287&highlight=ppt 试试这个呢

这个是英文的，看不懂

花间一壶酒

  

子程序名	返回值类型	公开	备 注
例子

变量名	类 型	静态	数组	备 注
ppt	对象
要打开的ppt文件	文本型

ppt.创建 (“PowerPoint.Application”, )  ' 启动ppt
ppt.写属性 (“Visible”, 真)  ' 可视
要打开的ppt文件 ＝ “C:\Users\Administrator\Desktop\新建 PPTX 演示文稿.pptx”
ppt.读对象型属性 (“Presentations”, ).对象型方法 (“Open”, 要打开的ppt文件)  ' 打开PPT文件
延迟 (3000)
ppt.方法 (“Quit”, )  ' 退出
ppt.清除 ()  ' 释放对象

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 例子<br /> .局部变量 ppt, 对象<br /> .局部变量 要打开的ppt文件, 文本型<br /> <br /> ppt.创建 (“PowerPoint.Application”, )  ' 启动ppt<br /> ppt.写属性 (“Visible”, 真)  ' 可视<br /> 要打开的ppt文件 ＝ “C:\Users\Administrator\Desktop\新建 PPTX 演示文稿.pptx”<br /> ppt.读对象型属性 (“Presentations”, ).对象型方法 (“Open”, 要打开的ppt文件)  ' 打开PPT文件<br /> 延迟 (3000)<br /> ppt.方法 (“Quit”, )  ' 退出<br /> ppt.清除 ()  ' 释放对象

lulume1

花间一壶酒 发表于 2025-12-25 11:05
[e=0].版本 2
.支持库 spec

窗口打开不开最大化，怎样打开能最大化，谢谢了

z573277679

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
WPS程序	对象
演示文稿集	对象
当前PPT	对象
文件路径	文本型

' 请修改为你实际的文件路径 (必须是绝对路径)
文件路径 ＝ “D:\测试文档.pptx”
' ----------------
' 创建 WPS 演示对象
' Kwpp.Application 是 WPS 演示的专用标识
如果真 (WPS程序.创建 (“Kwpp.Application”, ) ＝ 假)
信息框 (“启动 WPS 失败，请检查是否安装了 WPS Office！”, #错误图标, “错误”, )
返回 ()

' 设置 WPS 可见 (真=前台显示，假=后台静默处理)
WPS程序.写属性 (“Visible”, 真)
' 打开 PPTX 文件
' 获取 Presentations 集合对象
演示文稿集 ＝ WPS程序.读对象型属性 (“Presentations”, )
' 调用 Open 方法打开文件 (参数：文件名, 只读模式, 无标题, 显示窗口)
' 这里的参数只填第一个文件名即可，后面可选
当前PPT ＝ 演示文稿集.对象型方法 (“Open”, 文件路径)
如果真 (当前PPT.是否为空 ())
信息框 (“文件打开失败，请检查路径是否正确！”, #错误图标, “错误”, )
WPS程序.方法 (“Quit”, )
WPS程序.清除 ()
返回 ()

标题 ＝ “正在打开...”
延时 (3000)  ' 暂停3秒演示效果
标题 ＝ “准备关闭...”
' 关闭当前文档
' Close 方法关闭文档
当前PPT.方法 (“Close”, )
' 退出 WPS 应用程序
' Quit 方法退出主程序
WPS程序.方法 (“Quit”, )
' 清除对象，释放内存
当前PPT.清除 ()
演示文稿集.清除 ()
WPS程序.清除 ()
信息框 (“操作完成，WPS 已关闭。”, 0, “提示”, )

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 WPS程序, 对象<br /> .局部变量 演示文稿集, 对象<br /> .局部变量 当前PPT, 对象<br /> .局部变量 文件路径, 文本型<br /> <br /> ' 请修改为你实际的文件路径 (必须是绝对路径)<br /> 文件路径 ＝ “D:\测试文档.pptx”<br /> ' ----------------<br /> <br /> ' 创建 WPS 演示对象<br /> ' Kwpp.Application 是 WPS 演示的专用标识<br /> .如果真 (WPS程序.创建 (“Kwpp.Application”, ) ＝ 假)<br />     信息框 (“启动 WPS 失败，请检查是否安装了 WPS Office！”, #错误图标, “错误”, )<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 设置 WPS 可见 (真=前台显示，假=后台静默处理)<br /> WPS程序.写属性 (“Visible”, 真)<br /> <br /> ' 打开 PPTX 文件<br /> ' 获取 Presentations 集合对象<br /> 演示文稿集 ＝ WPS程序.读对象型属性 (“Presentations”, )<br /> <br /> ' 调用 Open 方法打开文件 (参数：文件名, 只读模式, 无标题, 显示窗口)<br /> ' 这里的参数只填第一个文件名即可，后面可选<br /> 当前PPT ＝ 演示文稿集.对象型方法 (“Open”, 文件路径)<br /> <br /> .如果真 (当前PPT.是否为空 ())<br />     信息框 (“文件打开失败，请检查路径是否正确！”, #错误图标, “错误”, )<br />     WPS程序.方法 (“Quit”, )<br />     WPS程序.清除 ()<br />     返回 ()<br /> .如果真结束<br /> <br /> 标题 ＝ “正在打开...”<br /> 延时 (3000)  ' 暂停3秒演示效果<br /> 标题 ＝ “准备关闭...”<br /> <br /> <br /> ' 关闭当前文档<br /> ' Close 方法关闭文档<br /> 当前PPT.方法 (“Close”, )<br /> <br /> ' 退出 WPS 应用程序<br /> ' Quit 方法退出主程序<br /> WPS程序.方法 (“Quit”, )<br /> <br /> ' 清除对象，释放内存<br /> 当前PPT.清除 ()<br /> 演示文稿集.清除 ()<br /> WPS程序.清除 ()<br /> <br /> 信息框 (“操作完成，WPS 已关闭。”, 0, “提示”, )

z573277679

lulume1

z573277679 发表于 2025-12-25 11:18
[e=4].版本 2

.子程序 _按钮1_被单击

窗口打开不开最大化，怎样打开能最大化，谢谢了

z573277679

lulume1 发表于 2025-12-25 11:37
窗口打开不开最大化，怎样打开能最大化，谢谢了

我这里可以最大化呀，你意思是一打开的就是最大化？