批量删除PPT中的备注

dim sld as slide

for each sld in activepresentation.slides

sld.notespage.shapes.placeholders(2).textframe.textrange.text = “”

next