VBA to convert PowerPoint 2007 to 2003
Posted on 2011-02-28
I have a number of PowerPoint 2007 files in a directory, and would like to set up a VBA macro that converts them into PowerPoint 2003 files. But I can't find the code to do this. Here's where I've got to so far. The ppPowerPoint8 does not seem to work, although the Excel equivalent, xlExcel8, does.
a = MsgBox("Please browse to the relevant folder holding your .PPTX files", vbOKOnly, "Browse")
Set userDir = Application.FileDialog(msoFileDialogFolderPicker)
'On Error GoTo here
FolderName = .SelectedItems(1) & "\"
fnames = Dir("*template phase 2.pptx")
'determine the type of files we are going to be working with...
Do While fnames <> ""
'save workbook in Ppt 2003 format
Presentations(fnames).SaveAs FileName:=Left(fnames, Len(fnames) - 5), FileFormat:=ppPowerPoint8
'close saved workbook
'loop to next file
fnames = Dir()