Sub ApplyHyperlinkStyleToAllLinksInDoc()
  For Each link In ActiveDocument.Hyperlinks
    link.Range.Style = ActiveDocument.Styles("Hyperlink")
  Next
End Sub