Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim oPPT As Object Dim spath Dim opptdoc Set oPPT = CreateObject("PowerPoint.Application") spath = App.Path & "\test.pptx" sOutput = App.Path & "\slides\" Set opptdoc = oPPT.Presentations.Open(spath, , , False) With opptdoc .SaveCopyAs App.Path & "\New Format Copy.ppt" '<=== this does not convert it to 2003 format .SaveAs "Old Format Copy", ppSaveAsPowerPoint2 <=== I get an enumaration error End With opptdoc.Close Set opptdoc = Nothing oPPT.Quit End
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.