|
|
#8
02-17-2018, 03:28 PM
|
||||
|
||||
Yes, that's a god alternative (better in some ways, as my code didn't address the presence of other field switches), but one still needed use the MS Forms 2.0 Object Library:
Code:
Sub CopyHyperlink()
Dim StrTxt As String
With Selection.Hyperlinks(1)
StrTxt = .Address
If .SubAddress <> "" Then StrTxt = StrTxt & "#" & .SubAddress
With .Range.Fields(1).Code
.Text = StrTxt
.Copy
End With
ActiveDocument.Undo
End With
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
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 7 64bit 
Office 2010 32bit
Threaded Mode