Статьи из блога

Как заменить текст гиперссылки на прямую ссылку

На форуме Microsoft, посвященном обсуждению различных нюансов работы с программами из пакета Microsoft Office, был задан вопрос:

Как в Ворде или в Экселе преобразовать гиперссылку в простой текст (нужно, чтобы осталось не слово, а путь, скрывающийся под гиперссылкой)?

Я попросил помощи на англоязычном форуме и получил простое решение. Код макроса, заменяющего текст в виде гиперссылки на прямую ссылку, привожу ниже:

Sub changeHLink()
Dim oHpl As Hyperlink
For Each oHpl In ActiveDocument.Hyperlinks
   oHpl.TextToDisplay = oHpl.Address
Next
End Sub

 

Если вы не знаете, как подключить к документу и применить этот макрос, прочитайте следующие заметки с сайта:

Автоматическая запись макроса

Создание макроса из готового кода

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us
Вы можете помочь в развитии сайта, сделав пожертвование:

Или помочь сайту популярной криптовалютой:

 

BTC Адрес: 1Pi3a4c6sJPbfF2sSYR2noy61DMBkncSTQ

 

ETH Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

LTC Адрес: LUyT9HtGjtDyLDyEbLJZ8WZWGYUr537qbZ

 

USDT (ERC-20) Адрес: 0x7d046a6eaa1bd712f7a6937b042e9eee4998f634

 

Яндекс Деньги: 410013576807538

 

А тут весь список наших разных крипто адресов, может какой добрый человек пожертвует немного монет или токенов - получит плюсик в карму от нас :) Благо Дарим, за любую помощь!

Еще записи по вопросам использования Microsoft Word:

Комментариев: 3

  1. Елена
    23.09.2009 в 09:57 | #1

    Помогите, пожалуйста, написать макрос, который бы преобразовывал в файле Word все перекрестные ссылки на заголовки (установлены сл. способом — Insert - Reference - Cross-Reference...) в гиперссылки (способ установки — Insert - Hyperlink - Place In this document).

  2. Сергей
    24.09.2013 в 13:29 | #2

    Заменить все ссылки на их текст можно без макроса: 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

  3. Лена
    24.09.2014 в 16:36 | #3

    Как вернуть гиперссылку в нормальный вид!) Помогите, пожалуйста! Вот какая гиперссылка стала: {HYPERLINK"адрес"} и не переходит автоматически как раньше, а мне надо сделать, чтобы выделялась подчеркиванием и цветом

Оставьте комментарий!

(обязательно)

^ Наверх