ppt批量删除备注

 
在PPT中，可以使用VBA宏实现批量删除备注。具体步骤如下：
 
1. 打开PowerPoint，按下“ALT + F11”进入VBA编辑器；
2. 在VBA编辑器界面中，点击“插入”菜单，选择“模块”，在弹出的对话框中输入以下代码：
```
Sub DeleteNotes()
    Dim ppt As Presentation
    Dim slide As Slide
    Dim shape As Shape
    Dim i As Integer
 
    Set ppt = ActivePresentation
    i = ppt.Slides.Count
 
    For Each slide In ppt.Slides
        For Each shape In slide.NotesPage.Shapes
            If shape.Type = msoPlaceholder And shape.PlaceholderFormat.Type = ppPlaceholderBody Then
                shape.TextFrame.TextRange.Delete
            End If
        Next
    Next slide
End Sub
```
 
3. 点击工具栏的“运行”按钮或按下“F5”键，即可执行删除备注的操作。
 
需要注意的是，在批量删除备注的过程中，可能会造成原始文件的数据丢失或修改。在进行此操作之前，建议先备份好原始文件，同时请谨慎使用此代码，以免不可恢复的后果。