如何批量删除PPT每一页动画

最快的方法就是用vba代码，也很简单

Dim I As Integer: Dim J As Integer
　　Dim oActivePres As Object
　　Set oActivePres = ActivePresentation
　　With oActivePres
　　For I = 1 To .Slides.Count
　　If Val(Application.Version) < 10 Then
　　For J = 1 To .Slides(I).Shapes.Count
　　.Slides(I).Shapes(J).AnimationSettings.Animate = msoFalse
　　Next J
　　Else
　　For J = .Slides(I).TimeLine.MainSequence.Count To 1 Step -1
　　.Slides(I).TimeLine.MainSequence(J).Delete
　　Next J
　　End If
　　Next I
　　End With
　　Set oActivePres = Nothing

使用方法：要删除动画的任意页码上，按ALT+F8 打开 创建宏窗口（也可以按ALT+F11直接进代码界面），然后把上面的代码拷贝进去，点击运行一次就行，具体见动图