各位大侠,本人对vba完全不懂。工作急需此功能。网上找到如下方法。但是然后呢?从哪里可以看到我的word文件啊?求教,急!Sub Main(PPT)
 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
______________________
Sub xxx(Word)
 
End Sub