Hyperlink.Range (Word)

Returns a Range object that represents the portion of a document that is contained within a hyperlink.

Dim rngRange As Range
Set rngRange = Selection.Hyperlinks(1).Range