PPT 批量删除所有备注

添加宏

• 打开宏窗口

工具 -> 宏 -> 宏

• 输入宏名称

例如“删除备注”

• 点击“+”

• 添加宏代码

Sub 删除备注()
Dim sld As Slide

For Each sld In ActivePresentation.Slides

     sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text = ""

Next
End Sub

• 保存，关闭窗口

运行宏

• 打开宏窗口

工具 -> 宏 -> 宏

• 选中“删除备注”，点击运行