求帮忙看一句代码

xl0001

如题，调试PPT的时候会生成大量的P，每次手动删除多余的页比较麻烦，想做个一键删除多余页的代码，卡在一句代码上了，求老司机指点一下，谢谢


演示文稿1.rar (40.29 KB, 下载次数: 11)

2019-2-10 00:26 上传

点击文件名下载附件

代码如下

Sub delPage()
Dim a As Integer, b As Integer
b = ActivePresentation.Slides.Count
For a = 2 To b
ActivePresentation.Slides(a).Delete '删除除第1个P之外的所有P
Next
End Sub

复制代码

ws1211

把A换成2，因为你吧第二张删除后，第三张就变成第二张了。而代码会去找第三张删除，就会出错

foxdjq

ActivePresentation.Slides(2).Delete
或:for a=b to 2 step -1

0769222

十分感谢，问题解决了