|
|
|
|
#1
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
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com 
|
|
| Thread Tools | |
| Display Modes | |
|
|
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 |
Windows 10 
Office 2016
Hybrid Mode