Application.Selection (Word)

Renvoie l'objet Selection qui représente une plage sélectionnée ou le point d'insertion.

If Selection.Type = wdSelectionNormal Then MsgBox Selection.Text