![]() |
|
#1
|
|||
|
|||
![]() Thank you both for your help. In the end I used Macropod's code: 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 End With ActiveDocument.Undo End Sub |
![]() |
|
![]() |
||||
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 |
![]() |
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 |
![]() |
zssteen | Excel | 1 | 06-19-2009 02:32 AM |