Welcome to Office Zealot Sign in | Join | Help

PPT: Remove Slide Notes

Did you ever get your hands on a PowerPoint slide deck from somebody else and read all the (often amusing) slide notes? I always like to make sure that I remove all of my slide notes to make sure I don't embarrass myself. (You know... the 'Click Here' and 'State Your Name' types of reminders ;)

So to clean all the notes out, I use the following code to instantly and thoroughly a whole deck before I push it out the door...

Public Sub RemoveSlideNotes()
   
    Dim objSlide As Slide
    Dim objShape As Shape
   
    For Each objSlide In ActivePresentation.Slides
        For Each objShape In objSlide.NotesPage.Shapes
            objShape.TextFrame.TextRange = ""
        Next
    Next

End Sub

 

Published Thursday, September 02, 2004 6:47 PM by charles

Comments

# re: PPT: Remove Slide Notes

Sunday, June 03, 2007 1:31 PM by officeHater

except for, this barfs on any slide that doesn't have any notes.  And would be best if it were, like an add-in.  

Note tested on Office 2007

Public Sub RemoveSlideNotes()

   Dim objSlide As Slide

   Dim objShape As Shape

   Dim objTextRange As TextRange

        ' Check to see whether a presentation is open.

        If Presentations.Count <> 0 Then

           For Each objSlide In ActivePresentation.Slides

               For Each objShape In objSlide.NotesPage.Shapes

                   If objShape.HasTextFrame Then

                      If objShape.TextFrame.HasText Then

                          objShape.TextFrame.TextRange.Delete

                       End If

                    End If

               Next

           Next

        Else

           MsgBox "No presentation open.", vbExclamation

        End If

End Sub

Anonymous comments are disabled