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

macropod · 03-27-2012, 10:31 PM

Hi Eric,

Try:

Code:

Sub TagHyperlinks()
Dim HLnk As Hyperlink
For Each HLnk In ActiveDocument.Hyperlinks
  HLnk.Range.InsertBefore "<a target=""_blank"" href=""" & HLnk.Address & """>"
  HLnk.Range.InsertAfter "</a>"
Next
End Sub

To use it, you can simply add 'Call TagHyperlinks' at the appropriate place in your existing code.