Application.Selection (Word)

Devuelve el objeto Selection que representa un intervalo seleccionado o el punto de inserción.

If Selection.Type = wdSelectionNormal Then MsgBox Selection.Text