Selection.Range (Word)

Retorna um objeto Range que representa a parte de um documento que está contida no objeto especificado.

Dim rngRange As Range
Set rngRange = Selection.Range