Application.Selection (Word)

Retorna o objeto Selection que representa um intervalo selecionado ou o ponto de inserção. Somente leitura.

If Selection.Type = wdSelectionNormal Then MsgBox Selection.Text