用VBA可以做Sub test() For Each sl In ActivePresentation.Slides '遍历幻灯片 For i = sl.Shapes.Count To 1 Step -1 '遍历shape对象 If sl.Shapes.Item(i).Type = 14 Or sl.Shapes.Item(i).Type = 17 Then '若为文本框或标题文本框,且文本包含“示例”,则删除文本框 If sl.Shapes.Item(i).TextFrame.TextRange.Text Like "*示例*" Then sl.Shapes.Item(i).Delete End If Next i Next sl End Sub