Удаление заметок докладчиков из презентаций программным способом - PullRequest
Новая
       10

Удаление заметок докладчиков из презентаций программным способом

4 голосов
/ 02 июня 2010

У меня есть много презентаций, которые необходимо опубликовать за пределами моей компании, и мне нужен способ просмотреть все заметки докладчика и автоматически удалить их. Есть ли способ сделать это в VBA? Я искал это, но, похоже, ничего не нашел.

1 Ответ

5 голосов
/ 02 июня 2010

Этот парень написал скрипт, который удаляет заметки докладчика из всех файлов PowerPoint в каталоге. Вы должны быть в состоянии адаптировать его под свои нужды. 

Sub RemoveSpeakerNotes()
  Set objPPT = CreateObject("PowerPoint.Application")
  objPPT.Visible = True
  strComputer = "."
  Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
  Set FileList = objWMIService.ExecQuery _
    ("ASSOCIATORS OF {Win32_Directory.Name='E:\DirectoryContainingPresentations'} Where " _
    & "ResultClass = CIM_DataFile")
  For Each objFile In FileList
    If objFile.Extension = "pptx" Or objFile.Extension = "ppt" Then
      Set objPresentation = objPPT.Presentations.Open(objFile.Name)
      Set colSlides = objPresentation.Slides
      On Error Resume Next
      For Each objSlide In colSlides
        objSlide.NotesPage.Shapes(2).TextFrame.TextRange = ""
      Next
      objPresentation.Save
      objPresentation.Close
    End If
  Next
  MsgBox ("Done")
End Sub
...