请删除PPT中的批注

T-T-J

近期，我下载了一些PPT文档，但有些文档中有一些批注，有些文档中没有批注，哪位高手请帮我用VBA批量把这有批注的文档中所有的批注都删除，非常感谢

T-T-J

请哪位大咖帮一帮忙，非常感谢

T-T-J

请帮忙！！！

T-T-J

请帮忙，非常感谢

T-T-J

有会PPT大师在吗？请帮一下忙，用VBA批量把有批注的文档中所有的批注都删除，非常感谢

ljhongyu

会的只有这一招。。

shenjianrong163

1. Sub DelComments()
   
2.     Dim cmt As Comment, n As Long, i As Long
   
3.     With ActivePresentation
   
4.         n = .Slides.Count
   
5.         On Error Resume Next
   
6.         For i = 1 To n
   
7.             With .Slides(i)
   
8.                 For Each cmt In .Comments
   
9.                  cmt.Delete
   
10.                 Next
    
11.             End With
    
12.         Next
    
13.     End With
    
14. End Sub

复制代码