Hyperlink

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

rachelh - 17 Nov 2004 17:58 GMT

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

---
Message posted from http://www.ExcelForum.com/

Reply to this Message

Helmut Weber - 18 Nov 2004 08:47 GMT

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
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Reply to this Message

Helmut Weber - 18 Nov 2004 14:11 GMT

<gr>
better this way:
ActiveDocument.Hyperlinks("chart.doc").Range.Select
plus collapse as in the former posting
---
Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Reply to this Message