Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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.