Returns a TextRange object representing the base text to which the specified hyperlink has been applied.
expression.Range
expression Required. An expression that returns one of the objects in the Applies To list.
If the Type property of the specified Hyperlink object is a value other than msoHyperlinkRange, the Range property returns nothing.
The following example returns the text range associated with the first hyperlink on page one of the active publication and changes the base text to "Go here."
Dim txtHyperlink As TextRange
txtHyperlink = ActiveDocument.Pages(1) _
.Shapes(1).Hyperlink.Range
txtHyperlink.Text = "Go here"