Jack said:
I have a presentation that contains 90 slides. I would
like to delete the speakers notes in this presentation
without viewing each slide to do so. Is there a way to
delete all speaker's notes from a presentation easily?
With the mod indicated, this should do it:
Here's an answer from the PowerPoint FAQ at
http://www.rdpslides.com/pptfaq/
This macro will export the notes text from each slide in your presentation
to the file you specify.
Sub ExportNotesText()
Dim oSlides As Slides
Dim oSl As Slide
Dim oSh As Shape
Dim strNotesText As String
Dim strFileName As String
Dim intFileNum As Integer
Dim lngReturn As Long
' Get the notes text
Set oSlides = ActivePresentation.Slides
For Each oSl In oSlides
For Each oSh In oSl.NotesPage.Shapes
If oSh.PlaceholderFormat.Type = ppPlaceholderBody Then
If oSh.HasTextFrame Then
If oSh.TextFrame.HasText Then
' strNotesText = strNotesText & "Slide: " &
CStr(oSl.SlideNumber) & vbCrLf _
' & oSh.TextFrame.TextRange.Text & vbCrLf & vbCrLf
' DELETE instead of extracting the text:
oSh.Delete
End If
End If
End If
Next oSh
Next oSl
' now write the text to file
Open strFileName For Output As intFileNum
Print #intFileNum, strNotesText
Close #intFileNum
' show what we've done
lngReturn = Shell("NOTEPAD.EXE " & strFileName, vbNormalFocus)
End Sub
