Microsoft Office Forums - View Single Post - [Solved] How to extract selected hyperlink address to clipboard?

poetofpiano · 02-18-2018, 07:17 PM

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