How to extract selected hyperlink address to clipboard?

gmayor · #5 02-16-2018, 09:48 PM

Unless I am missing something here (it wouldn't be the first time) why not use the hyperlink address property? e.g.

Code:

Sub GetLinkAddress()
Dim dFname As DataObject
Dim hLink As Hyperlink
    Set hLink = Selection.Hyperlinks(1)
    Set dFname = New DataObject
    dFname.SetText hLink.Address
    dFname.PutInClipboard
    MsgBox hLink.Address & vbCr & "copied to clipboard"
lbl_Exit:
    Set hLink = Nothing
    Set dFname = Nothing
    Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Extract name and address.	donlincolnmsof	Word VBA	1	11-10-2017 12:59 PM
Add Hyperlink in Visio that when clicked copies something to your clipboard	MoHyB	Visio	0	11-10-2017 08:55 AM
Find & selected paras with highlighted text & copy to clipboard	marceepoo	Word VBA	1	09-14-2012 08:20 PM
How to extract selected boilerplate into a new doc	mturner296	Word	0	03-29-2010 07:35 AM
Extract email address from field	zssteen	Excel	1	06-19-2009 02:32 AM