求帮忙看一句代码

Dozen

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


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

2017-12-27 10:46 上传

点击文件名下载附件

代码如下

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

复制代码

迪尼索斯

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

leikaiyi123

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

Dozen

十分感谢，问题解决了