本示例跳至选定部分第一个超链接的地址。
If Selection.Hyperlinks.Count >= 1 Then
Selection.Hyperlinks(1).Follow
End If