как массово изменить гиперссылки?

[1o1man]

долго гуглил, на каком-то форуме 2 года назад чел выложил макросы на zalil.ru и естесственно - щас их нет...

потом наткнулся на такой совет, но он не заменяет ниче. после того как комп завис - слетели ссылки =( теперь они указывают на адрес профиля вместо сетевого диска. как быть? в ручную 500+ ссылок менять долго, да и когда такой случай был в первый раз - решения не нашел, но и ссылок было мало, поэтому набил вручную их..

Sub Replace_Hyperlink()
    Dim rCell As Range, rRange As Range, sWhatRep As String, sRep As String
    On Error Resume Next
    Set rRange = Application.InputBox("Укажите диапазон для замены", "Выбор данных", Type:=8)
    If rRange Is Nothing Then Exit Sub
    sWhatRep = InputBox("Что меняем?", "Ввод данных", "C:\Documents and Settings")
    sRep = InputBox("На что меняем?", "Ввод данных", "\\Dc2k\common\_ипотека\ипотека\пролонгация")
    If sWhatRep = "" Then Exit Sub
    If sRep = "" Then
        If MsgBox("Хотите заменить " & sWhatRep & " на пусто?", vbCritical + vbYesNo, "Предупреждение") = vbNo Then Exit Sub
    End If
    Application.ScreenUpdating = 0
    For Each rCell In rRange
        If rCell.Hyperlinks.Count > 0 Then
            If rCell.Hyperlinks(1).Address = rCell.Value Then
                rCell = Replace(rCell.Value, sWhatRep, sRep)
            End If
            rCell.Hyperlinks(1).Address = Replace(rCell.Hyperlinks(1).Address, sWhatRep, sRep)
        End If
    Next rCell
    Application.ScreenUpdating = 1
End Sub

[Watcher_1]

Можно взглянуть на пример ссылок?

[1o1man]

сейчас ссылки вида

../../ИнтехБанк/2006%20ГОД/Сентябрь/ИАРТ%20Хасаншины%201-2-120
../../Ак%20Барс%20Банк/2008/Сентябрь/Кремль/Махмутов1%20Кремль
вот вместо
../../ должно быть //Dc2kazan/common/_ипотека/ипотека/

[Watcher_1]

Где расположены эти ссылки?
Подряд?

[1o1man]

да, ссылки подряд, столбиком

http://img638.imageshack.us/img638/4596/unled1ad.gif

[EducatedFool]

долго гуглил

И не наткнулись на этот макрос для исправления гиперссылок?
Или он не помог вам?

[Watcher_1]

Держите
Подразумевается что ссылки в столбце А

Sub m()
     For i = 1 To Range("A1").End(xlDown).Row
      myTmp = Range("A" & i).Hyperlinks.Item(1).Name
      myTmp = Replace(myTmp, "../../", "//Dc2kazan/common/_ипотека/ипотека/")
      Range("A" & i).Hyperlinks(1).Address = myTmp
     Next
End Sub

[Пименов Александр]

http://img638.imageshack.us/img638/4596/unled1ad.gif фиговая,пришлите либо текст ссылок, либо образец файла.......

[1o1man]

приложил данный файл

загвоздка в том, что когда навожу на ссылку мышкой, всплывает ссылка такая
"c:\doc and settings\ИнтехБанк/2006%20ГОД/Сентябрь/ИАРТ%20Хасаншины%201-2-120"
а когда жму изменить ссылку, вылезает ../../ИнтехБанк/2006%20ГОД/Сентябрь/ИАРТ%20Хасаншины%201-2-120

[1o1man]

Сообщение от Watcher_1

Держите
Подразумевается что ссылки в столбце А

Sub m()
     For i = 1 To Range("A1").End(xlDown).Row
      myTmp = Range("A" & i).Hyperlinks.Item(1).Name
      myTmp = Replace(myTmp, "../../", "//Dc2kazan/common/_ипотека/ипотека/")
      Range("A" & i).Hyperlinks(1).Address = myTmp
     Next
End Sub

может у меня руки кривые, но не сработало =(
скопировал столбец в новый файл, запустил макрос- кукиш. как было так и осталось =((