Sub Macro1()
Dim oLink As Hyperlink
Dim oRng As Range
    For Each oLink In ActiveDocument.Hyperlinks
        If oLink.Address Like "http*" Or oLink.Address Like "HTTP*" Then
            Set oRng = oLink.Range
            oRng.InsertBefore "URL: "
        End If
    Next oLink
End Sub