Back when Office XP was in beta, I was building "Information Worker" demos. One of them was to show how to make PowerPoint "speak" the speaker notes to you. This isn't quite Accessibility at it's finest, but it certainly doesn't hurt. You could figure out how to add closed captioning on top of each slide for better accessibility. However, I'm happy to say that the code I wrote for the demo with Office XP still works in Office 2003. Below are the steps to make PowerPoint speak the speaker notes to you. Keep in mind that I am not really a developer, so the code might not be the most efficient. Have fun with it and please let me know what you think.
Sub Present_And_Read_Notes() 'Declare and create an Excel object Dim XLapp As Excel.Application Dim SlideCount As Integer Set XLapp = CreateObject("Excel.Application") ActivePresentation.SlideShowSettings.Run With SlideShowWindows(1).View 'Figure out how many slides there are in this presentation SlideCount = ActivePresentation.Slides.Count 'Loop through each slide and read whatever is in the notes field. For i = 1 To SlideCount 'Speak the text in the Notes field for each slide: XLapp.Speech.Speak ActivePresentation.Slides(i).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.Text 'Another way to use speech is to just enter text here in the code: 'XL.Speech.Speak "You can also enter text here to be read during the presentation." .Next Next 'Close the Excel object and set the object to nothing. XLapp.Quit Set XLapp = Nothing 'Exit the slideshow .Exit End With
13. Back in PowerPoint, from the Tools menu, select Macro, Macros Select your macro (Present_And_Read_Notes) 14. Click RunThe PowerPoint slide should run and you should hear the notes spoken to you via a computerized-sounding voice.
----Here are some suggestions for you to improve this little sample: