Добрый вечер! Подскажите, пожалуйста, что не так в моем коде? Пытаюсь сохранить все презентации pptx в папке как pdf файлы. Запускаю макрос и ничего не происходит, никаких ошибок нет, но и макрос не срабатывает. В чем может быть проблема, хотелось бы понять...заранее благодарен!
Код |
---|
Sub Save() Dim MyFile As String Dim oPres As Presentation Const MyFolder = "X:\EOL_report_R\pres" MyFile = Dir(MyFolder & "*.pptx") Do While MyFile <> "" Set oPres = Presentation.Open(FileName:=MyFolder & MyFile, UpdateLinks:=0) ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint ActivePresentation.Close MyFile = Dir Loop End Sub |