you can try like

Set msg = ActiveExplorer.Selection(1)
If msg.GetInspector.EditorType = olEditorWord Then
    Set odoc = msg.GetInspector.WordEditor
    For Each h In odoc.Hyperlinks
        h.Address = "whatever"
    Next
End If
msg.Save
i did not test this