Selection.TextRange (PowerPoint)

Returns a TextRange object that represents the selected text.

You can construct a text range from a selection when the presentation is in slide view, normal view, outline view, notes page view, or any master view.

Dim treTextRange As TextRange
Set treTextRange = ActiveWindow.Selection.TextRange