批量删除PPT中的备注 dim sld as slide for each sld in activepresentation.slides sld.notespage.shapes.placeholders(2).textframe.textrange.text = “” next