Microsoft Word гиперссылки и закладки / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Microsoft Word гиперссылки и закладки

1 сообщений из 1, страница 1 из 1

Microsoft Word гиперссылки и закладки

#39866117

Morphius89

Гость

Добрый день!
Есть многостраничный документ Word, в котором есть список литературы вида:
1. Документ 1
2. Документ 2.
...
n. Документ n.

Все строчки данного списка оформлены как отдельные закладки с соответствующим наименованиями (закладка 1, закладка 2...закладка n).
В тексте самого документа сделаны отсылки на этот список литературы (гиперссылки на конкретную закладку) следующего вида:
документ /1/
документ /2/
...
документ /n/
Гиперссылка при этом только сама цифра.

В силу произошедших изменений в документе потребовалось поменять номер гиперссылки и саму ссылку на закладку (например, ранее гиперссылка 2 вела на документ 2 / закладку 2; теперь нужно чтобы гиперссылка стала под номером 1 и вела на документ 1 / закладку 1).

Собственно, написал 2 небольших макроса.
Первый (вроде даже рабочий) для смены номера гиперссылки с 2 на 1:

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.

On Error Resume Next
Dim hl as Hyperlink, oldstring as String
oldstring = "закладка 2"
For Each hl In ActiveDocument.Hyperlinks
If hl.Subaddress Like oldstring Then
hl.TextToDisplay = "1"
End If
Next hl
End Sub

Сделал второй по аналогии для смены с "закладка 2" на "закладка 1" и вот с ним какая-то засада, прошу помощи (отрабатывает без ошибок, но при этом в документе гиперссылка с документа 2/закладки 2 на документ 1/закладку 1 не меняется):

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

On Error Resume Next
Dim hl as Hyperlink
For Each hl In ActiveDocument.Hyperlinks
If hl.Subaddress Like "закладка 2" Then
hl.Subaddress = Replace (hl.Subaddress, "закладка 2", "закладка 1")
End If
Next hl
End Sub

...

Рейтинг:

0 / 0

24.09.2019, 10:35

| Ответить | Цитировать | Написать

1 сообщений из 1, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Microsoft Word гиперссылки и закладки

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&gotonew=1&tid=2171991]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	32ms
get topic data:	11ms
get first new msg:	8ms
get forum data:	3ms
get page messages:	34ms
get tp. blocked users:	2ms
others:	13ms

total:	131ms