Application.Selection (Word)

Gibt das Selection -Objekt zurück, das einen markierten Bereich oder die Einfügemarke darstellt.

If Selection.Type = wdSelectionNormal Then MsgBox Selection.Text