Гиперссылки и переименование папок

@Major · Регистрация: 06.07.2011

Студворк — интернет-сервис помощи студентам

Внезапно возникла задача. Есть довольно объемный текст. Много гиперссылок на исходные документы. Все документы лежат в одной папке. Теперь окончательный текст сверстан. Папу необходимо переименовать. После переименования папки гиперссылки не работают.
Как лечить? Ну, не редактировать же каждую гиперссылку в отдельности.

@Busine2009 · 06.07.2011, 07:56

Major,
можно ли это сделать средствами самого Word - не знаю, но с помощью макросов можно.

@Major · 06.07.2011, 13:50 **[ТС]**

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

можно ли это сделать средствами самого Word - не знаю, но с помощью макросов можно.

Я понимаю.

Только проблема в том, что ранее таких прикладных задач не возникало и, соответственно, в дружбе с макросами не было необходимости.

@Busine2009 · 06.07.2011, 13:54

Major,
т.е. использование макросов вам подходит?

@Major · 06.07.2011, 13:58 **[ТС]**

Да, все, что угодно, лишь бы второй раз ту же самую работу не делать.

@Busine2009 · 06.07.2011, 14:50

Major,
перед тестированием сделайте копию документа (вдруг вы что-нибудь не учли).
Код работает с активным документом и обрабатывает все гиперссылки.

Макрос:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Макрос2()
Dim Гиперссылка As Word.Hyperlink
Dim НовыйПуть As String
Dim Массив() As String
Dim ИмяДокумента As String
'Здесь указываем новый путь к документам.
'Скопируйте его из документа (это то, что отображается синим цветом)
'измените в нём название папки и удалите само название документа
'(название документа будет добавлено дальше в коде).
НовыйПуть = "..\Папка\"
For Each Гиперссылка In ActiveDocument.Hyperlinks
    'Разбиваем путь к документу, основываясь на символе "\".
    Массив() = Split(Гиперссылка.Address, "\")
    'Берём последнюю часть разбитого (это будем имя документа).
    ИмяДокумента = Массив(UBound(Массив))
    'Изменение текста гиперссылки в документе (то, что синим цветом).
    Гиперссылка.TextToDisplay = НовыйПуть & ИмяДокумента
    'Изменение адреса документа, на который ссылается гиперссылка.
    Гиперссылка.Address = НовыйПуть & ИмяДокумента
Next Гиперссылка
End Sub

@Major · 06.07.2011, 15:00 **[ТС]**

Спасибо. Сейчас проверю.

@Busine2009 · 06.07.2011, 15:06

Major,
сейчас обратил внимание, что текст гиперссылки может отличаться от адреса гиперссылки.
Поэтому по обстоятельствам надо смотреть: может быть адрес гиперссылки нужно взять др. способом, чем я указал, и тогда может не надо трогать текст гиперссылки Гиперссылка.TextToDisplay.

@Major · 06.07.2011, 15:39 **[ТС]**

Что-то не идет.

Видимо путаюсь с названиями документов, или путями.
Я понимаю, что проще послать "тупого" к к учебнику

, но если не трудно.... Я бы послал Вам в личку реальные пути и названия документов, а Вы бы не могли любезно наставить меня на путь истинный.

@Busine2009 · 06.07.2011, 15:41

Major,
а у вас текст гиперссылки (это то, что в документе видно синим) совпадает с адресом гиперссылки (это адрес, где находится документ)?

@Major · 06.07.2011, 15:51 **[ТС]**

В том-то и дело, что совпадают. Обычно, когда все документы (и основной и те, на которые есть гиперссылки) переносил из одной папки в другую, не меняя относительных путей, т.е. они как были в одной папке, так и оставались, то никаких проблем не было. Word делал все автоматом. Сейчас же часть гиперссылок подхватывает новые пути (другую папку), а часть нет. Вот такой затык.

@Busine2009 · 06.07.2011, 15:54

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

В том-то и дело, что совпадают.

тогда скопируйте текст любой одной гиперссылки из текста (она синим цветом) и вставьте в код вот сюда:

Visual Basic
1
НовыйПуть = "..\Папка\"

между кавычек.

Удалите имя файла и измените имя папки.

На этом всё.

@Major · 06.07.2011, 16:02 **[ТС]**

Я понимаю, что "рация на бронепоезде"

Берем реальный пример:
Старый путь (папка): H:\Ispection Manual\
В нем документ на который есть гиперлинк. Его зовут CWC_en.doc
Новый путь (папка):H:\Ispection Manual\Chapter VI and VII\
Название документа, на который есть гиперлинк прежнее: CWC_en.doc

Все документы лежат в одной папке. И до переноса в H:\Ispection Manual\Chapter VI and VII\ и после.

@Busine2009 · 06.07.2011, 16:06

Major,
вот так будет выглядеть в вашем конкретном случае:

Visual Basic
1
НовыйПуть = "H:\Ispection Manual\Chapter VI and VII\"

@Major · 06.07.2011, 16:15 **[ТС]**

Спасибо, добрый человек! Заработало. Сегодня вечером "рюмка чая" за здравие Busine2009 будет поднята и осушена!

Говорил же сам себе в 80-х, не останавливайся на Фортране и Бэйсике.

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@Major 0 / 0 / 0 Регистрация: 06.07.2011 Сообщений: 8

	Гиперссылки и переименование папок 06.07.2011, 01:45. Показов 8433. Ответов 14 Метки нет (Все метки) Внезапно возникла задача. Есть довольно объемный текст. Много гиперссылок на исходные документы. Все документы лежат в одной папке. Теперь окончательный текст сверстан. Папу необходимо переименовать. После переименования папки гиперссылки не работают. Как лечить? Ну, не редактировать же каждую гиперссылку в отдельности. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	06.07.2011, 07:56
	Major, можно ли это сделать средствами самого Word - не знаю, но с помощью макросов можно. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	06.07.2011, 13:54
	Major, т.е. использование макросов вам подходит? 0

@Major 0 / 0 / 0 Регистрация: 06.07.2011 Сообщений: 8
	06.07.2011, 13:58 [ТС]
	Да, все, что угодно, лишь бы второй раз ту же самую работу не делать. 0

@Major 0 / 0 / 0 Регистрация: 06.07.2011 Сообщений: 8
	06.07.2011, 15:00 [ТС]
	Спасибо. Сейчас проверю. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	06.07.2011, 15:06
	Major, сейчас обратил внимание, что текст гиперссылки может отличаться от адреса гиперссылки. Поэтому по обстоятельствам надо смотреть: может быть адрес гиперссылки нужно взять др. способом, чем я указал, и тогда может не надо трогать текст гиперссылки Гиперссылка.TextToDisplay. 0

@Major 0 / 0 / 0 Регистрация: 06.07.2011 Сообщений: 8
	06.07.2011, 15:39 [ТС]
	Что-то не идет. Видимо путаюсь с названиями документов, или путями. Я понимаю, что проще послать "тупого" к к учебнику, но если не трудно.... Я бы послал Вам в личку реальные пути и названия документов, а Вы бы не могли любезно наставить меня на путь истинный. 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	06.07.2011, 15:41
	Major, а у вас текст гиперссылки (это то, что в документе видно синим) совпадает с адресом гиперссылки (это адрес, где находится документ)? 0

@Major 0 / 0 / 0 Регистрация: 06.07.2011 Сообщений: 8
	06.07.2011, 15:51 [ТС]
	В том-то и дело, что совпадают. Обычно, когда все документы (и основной и те, на которые есть гиперссылки) переносил из одной папки в другую, не меняя относительных путей, т.е. они как были в одной папке, так и оставались, то никаких проблем не было. Word делал все автоматом. Сейчас же часть гиперссылок подхватывает новые пути (другую папку), а часть нет. Вот такой затык. 0

@Major 0 / 0 / 0 Регистрация: 06.07.2011 Сообщений: 8
	06.07.2011, 16:02 [ТС]
	Я понимаю, что "рация на бронепоезде" Берем реальный пример: Старый путь (папка): H:\Ispection Manual\ В нем документ на который есть гиперлинк. Его зовут CWC_en.doc Новый путь (папка):H:\Ispection Manual\Chapter VI and VII\ Название документа, на который есть гиперлинк прежнее: CWC_en.doc Все документы лежат в одной папке. И до переноса в H:\Ispection Manual\Chapter VI and VII\ и после. 0

@Major 0 / 0 / 0 Регистрация: 06.07.2011 Сообщений: 8
	06.07.2011, 16:15 [ТС]
	Спасибо, добрый человек! Заработало. Сегодня вечером "рюмка чая" за здравие Busine2009 будет поднята и осушена! Говорил же сам себе в 80-х, не останавливайся на Фортране и Бэйсике. 0