Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Morpheus

Ветеран


Сообщения: 12426
Благодарности: 2331

Профиль | Отправить PM | Цитировать


malkinfedor, нашел макрос. У меня 2010 Office, но в 2007 должно быть примерно так же:
  1. Файл ---> Параметры ---> Настройка ленты ---> ставим флажок "Разработчик" ---> OK.
  2. Разработчик ---> Макросы ---> задаём имя, например: "lnk" ---> Создать.
  3. Копируем текст макроса:
    Код: Выделить весь код
    Sub lnk()
    old_link = ActiveCell.Text
    Selection.Hyperlinks.Delete
    new_link = Replace(old_link, "notebook8", "server")
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    new_link, TextToDisplay:=new_link
    End Sub
    Сохраняем и закрываем окно.
  4. Возвращаемся в таблицу ---> выделяем ячейки со ссылками ---> Макросы ---> Выполнить.
Ссылки должны замениться, текст меняем с помощью Ctrl+H.
Разумеется, тренироваться лучше на копии файла.

Отправлено: 21:33, 09-06-2010 | #4