Dim sld As Slide
For Each sld In ActivePresentation.Slides
sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text = ""
Next
Dim sld As Slide
For Each sld In ActivePresentation.Slides
sld.NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text = ""
Next
转载于:https://www.cnblogs.com/dumanqingren/archive/2011/04/22/2025298.html