ppt提取文字

 1 Sub Main()
 2     On Error Resume Next
 3     Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide
 4     For Each tmpSlide In ActivePresentation.Slides
 5         For Each tmpShape In tmpSlide.Shapes
 6             temp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.Text
 7         Next tmpShape
 8     Next tmpSlide
 9     temp.Application.Visible = True
10 End Sub