Страницы: 1
RSS
Сохранение всех презентаций в папке в pdf формате
 

Добрый вечер! Подскажите, пожалуйста, что не так в моем коде? Пытаюсь сохранить все презентации 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

 
Может поможет.
http://www.excelworld.ru/forum/18-42476-1
По вопросам из тем форума, личку не читаю.
 
У вас нет файла "pres*.pptx" в папке EOL_report_R.
Сформируйте путь правильно (с системным разделителем).
Страницы: 1
Наверх