Remove notes from a Power Point dok

[Celtih]

Hi

Can anyone help me with a code that removes all notes in a Power Point?
It is because before i am sending the presentation to the customer after presenting it I always remove my own notes. But it takes a lot of time to do so, so would be nice with code that could do it at once.

Hope someone can help with this.

Kind regards
Celtih

[Paul_Hossler]

I use this.



Option Explicit
Sub DeleteNotes()
Dim oSlide As Slide

For Each oSlide In ActivePresentation.Slides
If oSlide.NotesPage.Shapes.Count > 0 Then
oSlide.NotesPage.Shapes.Range.Delete
End If
Next oSlide
End Sub

[Celtih]

Thanks very much :)

[John Wilson]

If you have 2010 on you do not need code at all.

File > Info > Check for issues > Inspect Document

Tick "Presentation Notes" and INSPECT

If they exist there will be an option to remove them