Selection.Range (Word)

Returns a Range object that represents the portion of a document that's contained in the specified object.

Dim rngRange As Range
Set rngRange = Selection.Range