怎样用VBA改动某一文件夹下所有PowerPoint文件母版的页脚字体

怎样用VBA更改某一文件夹下所有PowerPoint文件母版的页脚字体？
PowerPoint文件母版页脚有两部分组成，一部分是页码，还有一部分是“Confidential”字样。
现在用的字体是Calibri，需要更改成Arial。
需要将一个文件夹下所有的PowerPoint文件都做这样的改动。

请问应该怎样写啊？

                End With
    
                ActiveWindow.ViewType = ppViewSlide
                pres.Save
                pres.Close
        End If
    Next

End Sub