Microsoft Office Forums - View Single Post - [Solved] word macro that reformats embedded links in a doc

macropod · 03-28-2012, 02:59 PM

Hi Eric,

With the code I posted, I was actually being careful to not 'unmake' the hyperlinks! Try:

Code:

Sub TagHyperlinks()
Dim i As Long
With ActiveDocument
  For i = .Hyperlinks.Count To 1 Step -1
    With .Hyperlinks(i)
      .Range.InsertBefore "<a target=""_blank"" href=""" & .Address & """>"
      .Range.InsertAfter "</a>"
      .Range.Fields(1).Unlink
    End With
  Next
End With
End Sub