Sub HyperlinkFormatting()
    Dim fld As Field
    Dim Resp

    ' If no documents are open then exit
    If Documents.Count = 0 Then
        Exit Sub
    End If
    
    ' Confirm the action to format all the hyperlinks in the document
    Resp = MsgBox("Are you sure you want to format all the hyperlinks in this document?", _
        vbYesNo + vbQuestion + vbDefaultButton2, "Format Hyperlinks - Confirm?")
        
    If Resp = vbNo Then
        Exit Sub
    End If
    
    ' Loop through all fields in the active document
    For Each fld In ActiveDocument.Fields
        If fld.Type = wdFieldPageRef Or _
            fld.Type = wdFieldRef And InStr(1, fld.Code, "\h", 1) <> 0 Or _
            fld.Type = wdFieldHyperlink Then
            
                fld.Locked = False
                fld.Result.Font.ColorIndex = wdBlue
                
        End If
    Next fld
End Sub