PPT 批量删除所有备注
2019-12-28 本文已影响0人
SlowGO
添加宏
- 打开宏窗口
工具 -> 宏 -> 宏
- 输入宏名称
例如“删除备注”
-
点击“+”
-
添加宏代码
Sub 删除备注()
Dim sld As Slide
For Each sld In ActivePresentation.Slides
sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text = ""
Next
End Sub
- 保存,关闭窗口
运行宏
- 打开宏窗口
工具 -> 宏 -> 宏
- 选中“删除备注”,点击运行