Selection.TextRange2 (PowerPoint)

Returns the TextRange2 object of the current Selection object.

Dim tr2TextRange2 As Office.TextRange2
Set tr2TextRange2 = ActiveWindow.Selection.TextRange2