ppt提取文字
ALT+F11调出开发窗口
加入引用
插入模块
输入代码运行
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