Retrait des présentations Remarques haut-parleur Programmatically
-
22-10-2019 - |
Question
J'ai beaucoup de présentations qui doivent être partagées en dehors de mon entreprise et je besoin d'un moyen de boucle à travers toutes les notes de haut-parleurs et les supprimer automatiquement. Est-il possible de le faire en VBA? J'ai recherche sur ce mais ne peut pas sembler trouver quoi que ce soit.
La solution
Ce type a écrit un script qui supprime les notes de haut-parleurs de tous les fichiers PowerPoint dans un répertoire. Vous devriez être en mesure 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
Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow