VBA to convert PowerPoint 2007 to 2003


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.

Sub Convert2003()

a = MsgBox("Please browse to the relevant folder holding your .PPTX files", vbOKOnly, "Browse")
Set userDir = Application.FileDialog(msoFileDialogFolderPicker)
With userDir
    'On Error GoTo here
    FolderName = .SelectedItems(1) & "\"
End With
    ChDrive FolderName
    ChDir FolderName
    fnames = Dir("*template phase 2.pptx")
    'determine the type of files we are going to be working with...
    Do While fnames <> ""
        Presentations.Open FileName:=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()
Exit Sub
End Sub
Who is Participating?
Chris BottomleyConnect With a Mentor Commented:
It ought to save as 97-2003 if you simply use:

Presentations(fnames).SaveAs FileName:=Left(fnames, Len(fnames) - 5) & ".ppt"

Tracey_HillAuthor Commented:
Yes that worked. Thanks!
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.