How to Extract TextBox Contents from All Slides using Powerpoint VBA

Extract Text from Textboxes in Powerpoint slides using VBA
Dedicated to good blogger friend Rahul. This code snippet loops through the slides and extracts the contents of the Textboxes

Sub Extract_TextBox_Text_FromSlides()

Dim oPres As Presentation
Dim oSlide As Slide
Dim oShapes As Shapes
Dim oShape As Shape

Set oPres = ActivePresentation

' --------------------------------------------------
' coded by Shasur for http://vbadud.blogspot.com
' --------------------------------------------------

For Each oSlide In oPres.Slides
Set oShapes = oSlide.Shapes
For Each oShape In oShapes
If oShape.Type = msoTextBox Then

Debug.Print oSlide.Name & vbTab & oShape.TextFrame.TextRange.Text

End If
Next oShape
Next oSlide

End Sub