批量删除PPT中的备注



dim sld as slide
for each sld in activepresentation.slides
sld.notespage.shapes.placeholders(2).textframe.textrange.text = “”
next