Hyperlink

[rachelh]

hello,
How can I move the cursor after a specific hyperlink using VBA?
I am finding the hyperlinks as follows:
For Each aHyperlink In ActiveDocument.Hyperlinks

Thanks

 

[Helmut Weber]

Hi Rachel,
like this, e.g.:
Sub Test351()
Dim rDcm As Range
Dim oHpr As Hyperlink
Set rDcm = ActiveDocument.Range
For Each oHpr In rDcm.Hyperlinks
If oHpr.Address = "another.doc" Then
oHpr.Range.Select
Selection.Collapse Direction:=wdCollapseEnd
Exit For
End If
Next
End Sub

 

[Helmut Weber]

<gr>
better this way:
ActiveDocument.Hyperlinks("chart.doc").Range.Select
plus collapse as in the former posting