本示例跳至选定部分第一个超链接的地址。

If Selection.Hyperlinks.Count >= 1 Then
    Selection.Hyperlinks(1).Follow
End If