Power Point Notes Pane 1

[oldwen]

Hello all,

I have a PPT that has notes on every slide in the notes pane. Is there a way to remove these notes from every slide in the entrie PPT, either VBA or a macro. Thank you.

Oldwen

 

[HalfListener]

Try this macro.

I'd recommend making a copy of the presentation first, just in case.

Sub RemoveNotes()
Dim x As Integer
With ActivePresentation
For x = 1 To .Slides.Count
.Slides(x).NotesPage. _
Shapes(2).TextFrame. _
TextRange.Text = ""
Next x
End Sub

 

[oldwen]

Looks like this code could work, but I am recieving a message that I have macros disabled. I don't find any documentation on how to enable macros, any advise. Thank you.

 

[SkipVought]

1/2listener,

GOOD JOB!

I spent about 45 minutes trying to solve what the Shapes(2) object solves.

==> *



Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[HalfListener]

Clicking the following sequence in PowerPoint sets macro security:

Tools | Macro | Security... | {tab} Security Level

Your selection here depends on your comfort level. I use Medium most of the time. I do not recommend leaving the setting on Low.

I'd also recommend, while you are in the neighborhood, clicking on the 'Trusted Sources' tab and selecting 'Trust all installed add-ins and templates'.