摘要：
ppt = WIN32OLE::new('powerpoint.Application')ppt.DisplayAlerts = 1 #不显示任何警告ppt_presents = ppt.Presentations #演示文稿present = ppt_presents.open(filename,false,false,true)for slide in present.Slides for shape in slide.shapes if (shape.TextFrame.HasText == -1) begin text = shape.TextFrame.TextRan 阅读全文
