1: 2: 3: 4: 5: 6: 7:
Sub FormatHyperlinkFont() Dim hyp As Hyperlink For Each hyp In ActiveDocument.Hyperlinks hyp.Range.Font.Bold = True Next hyp End Sub