Статьи из блога
Как заменить текст гиперссылки на прямую ссылку
На форуме Microsoft, посвященном обсуждению различных нюансов работы с программами из пакета Microsoft Office, был задан вопрос:
Как в Ворде или в Экселе преобразовать гиперссылку в простой текст (нужно, чтобы осталось не слово, а путь, скрывающийся под гиперссылкой)?
Я попросил помощи на англоязычном форуме и получил простое решение. Код макроса, заменяющего текст в виде гиперссылки на прямую ссылку, привожу ниже:
Sub changeHLink() Dim oHpl As Hyperlink For Each oHpl In ActiveDocument.Hyperlinks oHpl.TextToDisplay = oHpl.Address Next End Sub
Если вы не знаете, как подключить к документу и применить этот макрос, прочитайте следующие заметки с сайта:
Создание макроса из готового кода
Рубрика: Вопрос-Ответ, Макросы, Стили и форматирование
Метки: гиперссылки | макросы
Просмотров: 25436
Подписаться на комментарии по RSS
Версия для печати
Метки: гиперссылки | макросы
Просмотров: 25436
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Белый текст на синем фоне в Word 2007
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
Комментариев: 3
Помогите, пожалуйста, написать макрос, который бы преобразовывал в файле Word все перекрестные ссылки на заголовки (установлены сл. способом — Insert - Reference - Cross-Reference...) в гиперссылки (способ установки — Insert - Hyperlink - Place In this document).
Заменить все ссылки на их текст можно без макроса: ctrl+shift+F9
или макросом:
Sub UnlinkRefs()
Dim bm As Field
For Each bm In Selection.Fields
If bm.Type = wdFieldRef Then bm.Unlink
Next
End Sub
Как вернуть гиперссылку в нормальный вид!) Помогите, пожалуйста! Вот какая гиперссылка стала: {HYPERLINK"адрес"} и не переходит автоматически как раньше, а мне надо сделать, чтобы выделялась подчеркиванием и цветом