Suppression des notes des conférenciers des présentations par programme

Question

J'ai beaucoup de présentations qui doivent être partagées en dehors de mon entreprise et j'ai besoin d'un moyen de faire défiler toutes les notes du conférencier et de les supprimer automatiquement. Y a-t-il un moyen de faire cela dans VBA? J'ai recherché sur ceci mais ne peux pas sembler trouver n'importe quoi.

Answer 1

This guy a écrit un script qui supprime les notes de haut-parleur de tous les fichiers PowerPoint dans un répertoire. Vous devriez être capable de l'adapter à vos besoins.

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