获取PPT文档幻灯片数量！！求救！！

GLJ

如题！求救，不管是 易语言代码，模块，DLL接口，都行，但是反应要快，代码能在1秒钟内取出幻灯片数量！  我要读到我播放PPT的当前页数

寒潮

  

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

变量名	类 型	静态	数组	备 注
局_PowerPoint对象	对象
局_Presentations对象	对象
局_Presentation对象	对象
局_Slides对象	对象

如果真 (打开文件通用对话框.打开 () ＝ 假)
返回 ()
局_PowerPoint对象.创建 (“Powerpoint.Application”, )
局_Presentations对象 ＝ 局_PowerPoint对象.读对象型属性 (“Presentations”, )
局_Presentation对象 ＝ 局_Presentations对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)
局_Slides对象 ＝ 局_Presentation对象.读对象型属性 (“Slides”, )
调试输出 (局_Slides对象.读数值属性 (“Count”, ))  ' PPT数量
局_Slides对象.清除 ()
局_Presentation对象.清除 ()
局_Presentations对象.清除 ()
局_PowerPoint对象.方法 (“Quit”, )
局_PowerPoint对象.清除 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 局_PowerPoint对象, 对象<br /> .局部变量 局_Presentations对象, 对象<br /> .局部变量 局_Presentation对象, 对象<br /> .局部变量 局_Slides对象, 对象<br /> <br /> .如果真 (打开文件通用对话框.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> 局_PowerPoint对象.创建 (“Powerpoint.Application”, )<br /> 局_Presentations对象 ＝ 局_PowerPoint对象.读对象型属性 (“Presentations”, )<br /> 局_Presentation对象 ＝ 局_Presentations对象.对象型方法 (“Open”, 打开文件通用对话框.文件名)<br /> 局_Slides对象 ＝ 局_Presentation对象.读对象型属性 (“Slides”, )<br /> 调试输出 (局_Slides对象.读数值属性 (“Count”, ))  ' PPT数量<br /> 局_Slides对象.清除 ()<br /> 局_Presentation对象.清除 ()<br /> 局_Presentations对象.清除 ()<br /> 局_PowerPoint对象.方法 (“Quit”, )<br /> 局_PowerPoint对象.清除 ()

仅供参考。

xq378

谢谢分享

xq378

再次感谢

xq378

谢谢分享

xq378

打不开咋搞