Select shapes by style and colour, extract text, in powerpoint

gistfile1.txt

Sub GetAllText()
Dim p As Presentation: Set p = ActivePresentation
Dim s As Slide
Dim sh As Shape
For Each s In p.Slides
    For Each sh In s.Shapes
        If sh.HasTextFrame Then
            If sh.Type = msoShapeStylePreset1 Then
                    If sh.Fill.ForeColor = RGB(242, 242, 242) Or sh.Fill.BackColor = RGB(242, 242, 242) Then
                        If sh.TextFrame.HasText Then
                        Debug.Print sh.TextFrame.TextRange.Text
                    End If
                End If
            End If
        End If
    Next
Next
End Sub