Each master, oneself to vba completely don't understand, work need this function, find the following method, but then what? From where I can see my word file? End, be urgent!

Sub Main (PPT)
On the Error Resume Next
Dim temp As New Word Document, tmpShape As Shape, tmpSlide As Slide
For Each tmpSlide In ActivePresentation. Slides TAB
For Each tmpShape In tmpSlide. Shapes
Temp. Range (). The Text=temp. Range () + tmpShape. TextFrame. TextRange. Text
Next tmpShape
Next tmpSlide
Temp. Application. The Visible=True
End Sub
______________________
Sub XXX (Word)

End Sub

CodePudding user response:

Used PageOffice products, can put the Word, PPT to PDF, don't know can turn PPT Word, the original poster can check data and have a look