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

[gluk_fm]

Всё гениально просто, может просто Ctr+F найти и заменить после чего всё меняется.......

[1o1man]

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

Всё гениально просто, может просто Ctr+F найти и заменить после чего всё меняется.......

первым делом это и было опробовано... ctrl+h

если получится изменить ссылки, залейте плз имененный файл
мозг уже не работает >_<

[gluk_fm]

В Вашем же модуле 1 поставьте вместо oldString = "..\..\" oldString = "../../" и будет Вам счастье.....

[1o1man]

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

В Вашем же модуле 1 поставьте вместо oldString = "..\..\" oldString = "../../" и будет Вам счастье.....

сделал, и получил
dc2kazan/common/_ипотека/ипотекаБАНК%20МОСКВЫ/2009/Июнь/камалетдинов

НО когда навожу на нее, всплывает следующее:
c:/doc and sett/admin/рабочий стол/dc2kazan/common/_ипотека/ипотекаБАНК%20МОСКВЫ/2009/Июнь/камалетдинов

=((((((

[gluk_fm]

Дописываем сразу после:
hl.Address = Replace(hl.Address, oldString, newString)
следующую строку:
Selection.Hyperlinks(1).ScreenTip = Replace(hl.Address, oldString, newString)
И счастье срузу удваивается....

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

Товарищи!!! Адрес слетевших гиперссылок такой ../../ИнтехБанк/2006%20ГОД/Сентябрь/ИАРТ%20Хасаншины%201-2-120 , Вы заменяете на \\Dc2k\common\_ипотека\ипотека\ между знаками «\» и «/» наверно есть разница?

[1o1man]

все равно не меняет =((((( если у вас работает, можете скинуть файлик? оч надо, работа стоит =(

Sub ÇàìåíàÈñïîð÷åííûõÃèïåðññûëîê()
    On Error Resume Next
    Dim hl As Hyperlink, oldString As String, newString As String, sh As Worksheet
      oldString = "../../"
    
   newString = "dc2kazan/common/_ипотека/ипотека"
    For Each sh In ActiveWorkbook.Worksheets    
       For Each hl In sh.Hyperlinks    
           If hl.Address Like oldString & "*" Then
                hl.Address = Replace(hl.Address, oldString, newString)
                Selection.Hyperlinks(1).ScreenTip = Replace(hl.Address, oldString, newString)
            End If
        Next
    Next sh
End Sub

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

Смотри я поменял гиперссылки на то адрес который указан, но про верить не могу так как они у тебя...... Исходный код замены находится в модуле Эта Книга

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

НО когда навожу на нее, всплывает следующее:
c:/doc and sett/admin/рабочий стол/dc2kazan/common/_ипотека/ипотекаБАНК%20МОСКВЫ/2009/Июнь/камалетдинов
Это генерация вспомогательного текста старой гиперссылки

[1o1man]

Сообщение от Пименов Александр

Смотри я поменял гиперссылки на то адрес который указан, но про верить не могу так как они у тебя...... Исходный код замены находится в модуле Эта Книга

спасибо что попробовали, но все равно не получилось =(

C:\Users\Александр\AppData\Local\Ак Барс Банк\2008\Сентябрь\До 2\Шекланова 2 жизнь ДО2

ладно, скажу чтобы делали своим мартышкиными руками
спасибо за помощь!