PPT 的文本提取到excel

TZNER

PPT中提取文本到word
Sub Main()

    On Error Resume Next

    Dim temp As New Word.Document, tmpShape As Shape, tmpSlide As Slide

    For Each tmpSlide In ActivePresentation.Slides

        For Each tmpShape In tmpSlide.Shapes

            temp.Range().Text = temp.Range() + tmpShape.TextFrame.TextRange.Text

        Next tmpShape

    Next tmpSlide

    temp.Application.Visible = True

End Sub
怎么才能修改成直接提取到EXCEL中那？


还有一个问题，能不能根据特定字符提取文本，比如带”价格“两个字，就提取“价格：168元”到excel表里。
最近整理公司的PPT报价，一个一个翻价格太麻烦了，想把PPT里的产品名字价格直接提取到excel里，在网上找了好久只有把EXCEL导入PPT的，没见把PPT倒回到EXCEL的。