ppt一键删除备注宏

Dim sld As Slide

 

For Each sld In ActivePresentation.Slides

 

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

 

Next

posted @ 2011-04-22 21:50  毒漫情人  阅读(432)  评论(0)  编辑  收藏  举报