PPT批量删除备注

经常在编写PPT的时候将PPT要讲到的衍生内容都放在备注里
这样可以在PPT演示时对照备注有条不紊的展开自己要讲述的内容

不过当PPT需要四处转发的时候就发觉备注一页页的删太过麻烦
那么有没有比较简便易行的方法删除PPT的备注呢~

这里就可以让我们的宏大展身手了~
在PPT的视图选项卡下，最后有个宏按钮。

点击宏，在弹出窗中，输入名字创建一个宏~

点击创建就会再弹出VB编辑器，输入以下代码
Sub ClrPPTRemarks()

Dim sld As Slide

For Each sld In ActivePresentation.Slides

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

Next

End Sub

这下名为“ClrPPTRemarks”的宏就创立了，回到PPT，点击宏窗口的运行….
怎样？！备注都帮你清空了吧~^_^