Microsoft Office Forums - View Single Post - W07: search and replace style without losing hyperlink

macropod · 10-11-2014, 03:17 AM

You could use something along the lines of:

Code:

With Selection.Hyperlinks(1).Range.Fields(1).Result
  .Start = .Start + InStrRev(.Text, "Interpretation Act") - 1
  .Style = "Emphasis"
End With

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab at the bottom of this screen.