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

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

Как преобразовать гиперссылки в документе Word в обычный текст

Рубрика: Макросы, Стили и форматирование
Метки: | |
Понедельник, 11 сентября 2006 г.
Просмотров: 23763
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

На днях я написал коротенькую заметку "Убей гиперссылку", где дал совет по быстрому превращению гиперссылки в обычный текст.

 

А один из читателей моей рассылки - Евгений - задал мне вопрос: можно ли как-то автоматизировать этот процесс? Это может пригодиться, когда таких ссылок большое количество.

 

Теперь я готов ответить на этот вопрос положительно. На сайте Allen L. Wyatt я нашел описание небольшого макроса, который позволяет удалить мгновенно из документа все гиперссылки, преобразовав их в обычный текст. Ниже привожу код и инструкцию по его внедрению в Word.

Sub RemoveHyperlinks()
While ActiveDocument.Hyperlinks.Count > 0
ActiveDocument.Hyperlinks(1).Delete
Wend
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
End Sub

  1. Зайдите в меню Сервис (Tools) и в дополнительном списке команд Макрос (Macro) выберите команду Макросы (Macros). Откроется диалоговое окно, в котором вам нужно ввести имя вашего макроса - RemoveHyperlink.
  2. Нажмите кнопку Создать (Create). Вы попадете в окно редактора Microsoft Visual Basic.
  3. Вставьте вышеприведенный код в позицию мигающего курсора (Обратите внимание: в окне редактора уже есть строки Sub RemoveHyperlinks() и End Sub. Поэтому вам нужно вставить лишь тот код, который находится между этими строками. Я выделил этот код цветом.).
  4. Закройте редактор Microsoft VB. Вы вновь вернетесь в редактор Microsoft Word.

Дальнейшие действия стандартны: вы должны вынести на панель инструментов кнопку для этого макроса и/или же назначить этому макросу сочетание клавиш для быстрого доступа.

  1. Зайдите в меню Сервис (Tools) и выберите команду Настройка (Customize).
  2. В появившемся диалоговом окне выберите вкладку Команды (Commands) и в левой области найдите и выберите категорию Макросы (Macros). В правой области появятся доступные команды. Выберите команду с названием вашего макроса.
  3. Удерживая левую кнопку мыши нажатой перенесите эту команду на вашу панель инструментов. На панели появится кнопка с вышеприведенным текстом.
  4. Можете оставить текст на кнопке как есть или присвойте ей какую-либо иконку.

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

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

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

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

  1. Евгений
    11.09.2006 в 22:11 | #1

    Большое спасибо за решение! Ранее мне прихродилось сталкиваться с такой задачей и необходимо было убивать много времени на утомительные однотипные операции. Теперь я знаю, что нужно делать.

  2. Клуб программистов
    15.09.2006 в 10:21 | #2

    Спасибо за интересную информацию.

  3. user
    12.11.2006 в 14:53 | #3

    spasibo ogromnoe.

  4. Shopen
    18.04.2007 в 10:31 | #4

    Выделите текст

    нажмите Ctrl+Shift+F9

    вуаля :)

  5. Alexander
    14.06.2007 в 12:48 | #5

    А вот для адресов email, "спрятавшихся" в гиперлинк за именем хозяина адреса, это не работает :-(

  6. Daniel
    22.10.2007 в 11:43 | #6

    Спасибо! Рахмат! Данке шён! Очень помог ваш совет.

  7. arkanum05
    30.10.2007 в 15:29 | #7

    Благодарю, очень полезно

  8. SU-27
    24.01.2008 в 19:58 | #8

    Спасибо! Очень помогло

  9. Sitara Koare
    14.02.2008 в 17:03 | #9

    То, что и искал!

    Спасибо за решение...

    Хотелось бы также спросить, нет ли уже готовых решений для добавления расширенных функций в работу "Поиск-Замена". Очень часто приходится форматировать тексты. А в стандартной панели "поиск и замена" нет практически ничего, что касается гиперссылок и других HTML символов и кодов... Например, найти гиперссылку и автоматически расставить после каждой знак абзаца или знак табуляции... Нашел один шаблон в сети, где ведется работа с гиперссылками и их расскраской. Установил, а шаблон скрипта не работает с 2007 версией Word. Возможно, кому-нибудь приходилось уже работать с расширенными функциями поиска и замены? Что посоветуете поискать и как установить на 2007 Word? Заранее благодарю за советы.

  10. алекс
    25.11.2008 в 11:16 | #10

    То, что и искал!
    Спасибо за решение...
    Хотелось бы также спросить, нет ли уже готовых решений для добавления расширенных функций в работу "Поиск-Замена". Очень часто приходится форматировать тексты. А в стандартной панели "поиск и замена" нет практически ничего, что касается гиперссылок и других HTML символов и кодов... Например, найти гиперссылку и автоматически расставить после каждой знак абзаца или знак табуляции... Нашел один шаблон в сети, где ведется работа с гиперссылками и их расскраской. Установил, а шаблон скрипта не работает с 2007 версией Word. Возможно, кому-нибудь приходилось уже работать с расширенными функциями поиска и замены? Что посоветуете поискать и как установить на 2007 Word? Заранее благодарю за советы.

    Выделяешь текст, нажимаешь Alt+F9. Весь текст с киперссылками преобразуется в гиперссылки. Правишь чего надо, потом опять Alt+F9 - возвращение в исходную позицию.

  11. Скот ученый
    28.01.2009 в 14:41 | #11

    Выделите текст
    нажмите Ctrl+Shift+F9

    Отличный совет? А как можно сделать, что бы гиперссылки вообще не открывались в документе, т.е без их преобразования в каждом документе отдельно???

  12. number_one
    17.11.2009 в 17:07 | #12

    Подскажите пожалуйста, ни где не могу найти, как преобразовать гиперлинки в сноски(любые)? Может быть есть для этого какие-то решения?

  13. 17.11.2009 в 20:12 | #13

    Можно попытаться преобразовать их макросом. Но что именно нужно получить в сносках: только текст гиперссылки или саму ссылку?

  14. number_one
    19.11.2009 в 15:56 | #14

    Можно попытаться преобразовать их макросом. Но что именно нужно получить в сносках: только текст гиперссылки или саму ссылку?

    В сносках нужно получить только текст гиперссылки. Как это сделать с помощью макроса? Помогите пожалуйста!

  15. number_one
    25.11.2009 в 15:34 | #15

    Антон, подскажите пожалуста, как трансформировать гиперссылку в сноску, что бы получить в этой сноске текст из гиперссылки?

  16. 25.11.2009 в 15:46 | #16

    number_one, попробуйте такой макрос

    Sub HyperLinkToFootNote()
      Dim oHyp As Hyperlink
      For Each oHyp In ActiveDocument.Hyperlinks
        ActiveDocument.Footnotes.Add oHyp.Range, , oHyp.TextToDisplay
      Next
    End Sub

  17. number_one
    25.11.2009 в 16:05 | #17

    Спасибо! Попробую - отпишусь!

  18. number_one
    28.11.2009 в 03:49 | #18

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

  19. Аноним
    19.09.2010 в 01:58 | #19

    А у меня не получилось вставить макрос для удаления гиперссылок. Пишет sintax error при обращении к нему.

    Не подскажете как быть?

  20. 19.09.2010 в 08:38 | #20

    Скопируйте в буфер обмена код из заметки (наведите мышь на код и справа вверху появятся команды для копирования), откройте редактор кода (сочетание «Alt+F11») и вставьте скопированный код в редактор. Запустите макрос.

    При появлении ошибки сбойное место в коде будет подвсечено. Покажите нам это место.

  21. Новачок
    02.12.2010 в 16:37 | #21

    Спасибо огромное! Очень пригодилось

  22. Виктор
    04.05.2011 в 01:47 | #22

    Спасибо за интересную статейку, теперь буду знать как в свой блог писать с ворда без гиперссылок.

  23. Александр
    10.10.2012 в 18:01 | #23

    Скажите совсем чайнику, а как в редактор это макрос вставить? У меня открылся Microsoft Visual Basic - там серое поле, а слева какие-то меню.

    PS. Очень нужно в одном большом документе преобразовать гиперссылки в обычные вордовские ссылки...

  24. Александр
    10.10.2012 в 18:10 | #24

    Удалось макрос загрузить, но гиперссылки он не преобразует, а создает рядом пустые обычные...

    Выдается ошибка в этой строке:

    ActiveDocument.Footnotes.Add oHyp.Range, , oHyp.TextToDisplay

  25. 12.10.2012 в 11:47 | #25

    Обратитесь на наш форум, там помогут.

  26. Михаил
    08.04.2013 в 22:36 | #26

    хотите расскажу как сделать просто обычный текст ( если ссылки из Вики например) , но они будут открываемы при ctrl + click ( удобно для печати)?

    Выберем весь текст , далее пкм , далее шрифт, --> выбираем цвет текста черный + убираем подчеркивание

  27. Людмила
    30.01.2014 в 09:49 | #27

    СПАСИБО!!!! Очень помогли! Успехов Вам!

  28. ZX3000
    11.04.2015 в 12:35 | #28

    Чего?? Ставим курсор после гиперссылки, тыкаем backspace и все!!! А он тут статьи пишет!

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

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

^ Наверх