Hyperlink.Range (Word)

Devuelve un objeto Range que representa la parte de un documento incluida en un hipervínculo.

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