Returns the second through fifth words from the first shape on the first slide in the active presentation:
Sub text() MsgBox ActivePresentation.Slides(1).Shapes(1).TextFrame _ .TextRange.Words(Start:=2, Length:=4) End Sub