Turning active hyperlinks back to blue?

Question

I selected all the text in a document and colored it all black (which is what I wanted to do). I didn't realize that the document had some hyperlinks in it (several pages in, in a very long document), so now I can't tell where the hyperlinks are, although I know it's working. Since there are many links, how can I turn the links back to underlined blue (as they should be) without having to go to each one and turning it blue?

Answer 1

On the Developer tab, click on Visual Basic.

 

When the Visual Basic window opens, click on Insert > Module.

When the new module appears, copy and paste the following code:

Sub ApplyHyperlinkStyleToAllLinksInDoc()

 For Each link In ActiveDocument.Hyperlinks

     link.Range.Style = ActiveDocument.Styles(“Hyperlink”)

 Next

End Sub

Now you can close the Visual Basic Editor, go to the Developer tab and choose Macros. Highlight the ApplyHyperlinkStyleToAllLinksInDoc macro and click on Run.

 

This will re-apply the default hyperlink style to all your links.