Here is my code in my vbs file.
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc = objWord.Documents.Open("C:\Users\zzz\Desktop\New\t _aesum_age_saf.rtf")
Set objSelection = objWord.Selection
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add
Sub Demo2()
Dim Tbl As Table
For Each Tbl In ActiveDocument.Tables
objDoc.Activate
With Tbl
objDoc.Tbl.Range.Select
End With
Tbl.Range.Copy
Set objSlide = objPresentation.Slides.Add(1,12)
objPPT.ActiveWindow.View.Paste
Next
End Sub
objPresentation.SaveAs("C:\Users\zzz\Desktop\New\t able.ppt")
objPresentation.Close
objPPT.Quit
objDoc.Close
objWord.Quit
|