Application.Selection (Word)

Returns the Selection object that represents a selected range or the insertion point.

If Selection.Type = wdSelectionNormal Then MsgBox Selection.Text