Hyperlink.Range (Word)

Retorna um objeto Range que representa a parte de um documento que está contida em um hiperlink.

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