Редактирование всех гиперссылок в книге

[Vogulus]

Здравствуйте!
Уважаемые гуру, подскажите пожалуйста как решить следующую задачу: есть книга Excel, в ней все гиперссылки абсолютные. Ссылаются на ресурс в сети.
Пример:
\\192.168.1.5\docs\file1.doc

Необходмио изменть все ссылки на относительные:
docs\file1.doc

ССылок очень много. Как отредактировать сразу все ссылки в книге?

[EducatedFool]

Запустите этот макрос:

Sub test()
    Dim hl As Hyperlink, s As String
    s = "\\192.168.1.5\"
    For Each hl In ActiveSheet.Hyperlinks
        If hl.Address Like s & "*" Then hl.Address = Replace(hl.Address, s, "")
    Next
End Sub

Будут исправлены все ссылки на активном листе книги


Для замены гиперссылок на всех листах книги используйте такой вариант кода:

Sub test2()
    On Error Resume Next
    Dim hl As Hyperlink, s As String, sh As Worksheet
    s = "\\192.168.1.5\" ' часть гиперссылки, подлежащая удалению
    For Each sh In ActiveWorkbook.Worksheets
        For Each hl In sh.Hyperlinks
            If hl.Address Like s & "*" Then hl.Address = Replace(hl.Address, s, "")
        Next
    Next sh
End Sub

(добавлено)
Макрос для замены повреждённых или неверных гиперссылок можно найти здесь: http://excelvba.ru/code/replace_hyperlinks

[Vogulus]

Огромное Вам спасибо, EducatedFool!!!

[Обыватель]

EducatedFool

Сильно! Очень выручили! Спасибо!