alt+F11打开宏编辑窗口,输入以下代码,运行即可: Sub removeALL() 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).Sha…