My New Avatar - Corporate Trainer

I was asked to take "J2EE Training" for about 30 odd fresher who recently joined our team. Since I like teaching people - I happily complied.

As can be expected, my manager at work pulled a fast one on me, and since I am "The Moron Who Doesn't Know To Say NO Sternly" - it's resulted in me having to work everyday till around 2 am - including both days of the weekend!
(Now - I have to do my regular 9 am - 6 pm project work and then come home and start working on preparing the slides needed as also learn up on all the topics - so that I can delve out an effective training!)

But, all the cribbing apart - It was a fun experience. Watching all the participants glow with joy on learning new concepts. And, from the feedback forms they filled out, I came to know that "The Participants Felt" that my communication skills were very good, my training was effective, and above all - the course content exceeded their expectations from the training!

I must confess - "Mugamboe Kussh Hua"


To cater to the training program, I had to prepare quite a few PPT slide - as a matter of fact a whopping 403 slides.
(Ofcourse, I must confess, I did leverage a lot of these slides from already existing presentations that were available online)

And now - I am going to share this with the participants of the program. But, there was one small problem. I had written personal notes on many of the slides. I didn't want to pass on the slides with these scibbled notes to them as it. with every probability, wouldn't make sense to them. This is when I stumbled upon this article on the web. It gives you step-by-step instructions on what needs to be done to delete all your Slide notes programmatically.




How to remove all your Power Point notes


Open your presentation
Click "Tools", "Macro", "Macros" and type in removeNotes.
Click "Create".
Paste the following into the window that appears, just before the text "End Sub"


Dim objSlide As Slide
Dim objShape As Shape

For Each objSlide In ActivePresentation.Slides
For Each objShape In objSlide.NotesPage.Shapes
If objShape.TextFrame.HasText Then
objShape.TextFrame.TextRange = ""
End If
Next
Next



Close the script window.
Click "Tools", "Macro", "Macros" and double click removeNotes.

Your notes should be deleted!


Anyone who wants to use this to achieve the same purpose as me is free to do so. Please note, I will not be held liable if anything goes (terribly?) wrong.