Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

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