Статьи из блога
Как преобразовать гиперссылки в документе Word в обычный текст
На днях я написал коротенькую заметку "Убей гиперссылку", где дал совет по быстрому превращению гиперссылки в обычный текст.
А один из читателей моей рассылки - Евгений - задал мне вопрос: можно ли как-то автоматизировать этот процесс? Это может пригодиться, когда таких ссылок большое количество.
Теперь я готов ответить на этот вопрос положительно. На сайте Allen L. Wyatt я нашел описание небольшого макроса, который позволяет удалить мгновенно из документа все гиперссылки, преобразовав их в обычный текст. Ниже привожу код и инструкцию по его внедрению в Word.
Sub RemoveHyperlinks() While ActiveDocument.Hyperlinks.Count > 0 ActiveDocument.Hyperlinks(1).Delete Wend Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False End Sub
- Зайдите в меню Сервис (Tools) и в дополнительном списке команд Макрос (Macro) выберите команду Макросы (Macros). Откроется диалоговое окно, в котором вам нужно ввести имя вашего макроса - RemoveHyperlink.
- Нажмите кнопку Создать (Create). Вы попадете в окно редактора Microsoft Visual Basic.
- Вставьте вышеприведенный код в позицию мигающего курсора (Обратите внимание: в окне редактора уже есть строки Sub RemoveHyperlinks() и End Sub. Поэтому вам нужно вставить лишь тот код, который находится между этими строками. Я выделил этот код цветом.).
- Закройте редактор Microsoft VB. Вы вновь вернетесь в редактор Microsoft Word.
Дальнейшие действия стандартны: вы должны вынести на панель инструментов кнопку для этого макроса и/или же назначить этому макросу сочетание клавиш для быстрого доступа.
- Зайдите в меню Сервис (Tools) и выберите команду Настройка (Customize).
- В появившемся диалоговом окне выберите вкладку Команды (Commands) и в левой области найдите и выберите категорию Макросы (Macros). В правой области появятся доступные команды. Выберите команду с названием вашего макроса.
- Удерживая левую кнопку мыши нажатой перенесите эту команду на вашу панель инструментов. На панели появится кнопка с вышеприведенным текстом.
- Можете оставить текст на кнопке как есть или присвойте ей какую-либо иконку.
Теперь, если у вас в документе много ссылок, от которых вы хотите избавиться, достаточно нажать эту кнопку макроса и он моментально преобразует все гиперссылки в обычный текст. Вы даже не заметите процесса преобразования.
Метки: гиперссылки | макросы | преобразование
Просмотров: 54452
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 3 способа очистки списка недавно открытых документов
- Word 2007: полотно, рисунки, линии
- Word 97. Слияние документов как один из способов упростить свою работу
- Абзац с цветным фоном
- Автозаполняемые колонтитулы
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Автоформат документов
- Буквица
- Быстрая смена ориентации страниц документа
- Быстрое изменение стиля форматирования текста
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрое удаление границ у таблицы
- Быстрый ввод текста с помощью команды =rand()
- Быстрый поиск форматированного текста
- В чем различие между Автозаменой и Автотекстом
- В чем различие между стилями Обычный (Normal) и Основной текст (Body Text)?
- Ввод повторяющихся фрагментов текста в Word 2007
- Ввод часто повторяющихся фрагментов текста
- Вставка будущей даты
Форум
Читают
Обсуждают
страницы
сайты
статистика
Комментариев: 32
Большое спасибо за решение! Ранее мне прихродилось сталкиваться с такой задачей и необходимо было убивать много времени на утомительные однотипные операции. Теперь я знаю, что нужно делать.
Спасибо за интересную информацию.
spasibo ogromnoe.
Выделите текст
нажмите Ctrl+Shift+F9
вуаля
А вот для адресов email, "спрятавшихся" в гиперлинк за именем хозяина адреса, это не работает :-(
Спасибо! Рахмат! Данке шён! Очень помог ваш совет.
Благодарю, очень полезно
Спасибо! Очень помогло
То, что и искал!
Спасибо за решение...
Хотелось бы также спросить, нет ли уже готовых решений для добавления расширенных функций в работу "Поиск-Замена". Очень часто приходится форматировать тексты. А в стандартной панели "поиск и замена" нет практически ничего, что касается гиперссылок и других HTML символов и кодов... Например, найти гиперссылку и автоматически расставить после каждой знак абзаца или знак табуляции... Нашел один шаблон в сети, где ведется работа с гиперссылками и их расскраской. Установил, а шаблон скрипта не работает с 2007 версией Word. Возможно, кому-нибудь приходилось уже работать с расширенными функциями поиска и замены? Что посоветуете поискать и как установить на 2007 Word? Заранее благодарю за советы.
Выделяешь текст, нажимаешь Alt+F9. Весь текст с киперссылками преобразуется в гиперссылки. Правишь чего надо, потом опять Alt+F9 - возвращение в исходную позицию.
Отличный совет? А как можно сделать, что бы гиперссылки вообще не открывались в документе, т.е без их преобразования в каждом документе отдельно???
Подскажите пожалуйста, ни где не могу найти, как преобразовать гиперлинки в сноски(любые)? Может быть есть для этого какие-то решения?
Можно попытаться преобразовать их макросом. Но что именно нужно получить в сносках: только текст гиперссылки или саму ссылку?
В сносках нужно получить только текст гиперссылки. Как это сделать с помощью макроса? Помогите пожалуйста!
Антон, подскажите пожалуста, как трансформировать гиперссылку в сноску, что бы получить в этой сноске текст из гиперссылки?
number_one, попробуйте такой макрос
Sub HyperLinkToFootNote() Dim oHyp As Hyperlink For Each oHyp In ActiveDocument.Hyperlinks ActiveDocument.Footnotes.Add oHyp.Range, , oHyp.TextToDisplay Next End SubСпасибо! Попробую - отпишусь!
Александр, к сожалению макрос работает как то не правильно. Текст из гиперссылки в сноску не переносит вообще, а увеличивает в два раза само количество сносок.
А у меня не получилось вставить макрос для удаления гиперссылок. Пишет sintax error при обращении к нему.
Не подскажете как быть?
Скопируйте в буфер обмена код из заметки (наведите мышь на код и справа вверху появятся команды для копирования), откройте редактор кода (сочетание «Alt+F11») и вставьте скопированный код в редактор. Запустите макрос.
При появлении ошибки сбойное место в коде будет подвсечено. Покажите нам это место.
Спасибо огромное! Очень пригодилось
Спасибо за интересную статейку, теперь буду знать как в свой блог писать с ворда без гиперссылок.
Скажите совсем чайнику, а как в редактор это макрос вставить? У меня открылся Microsoft Visual Basic - там серое поле, а слева какие-то меню.
PS. Очень нужно в одном большом документе преобразовать гиперссылки в обычные вордовские ссылки...
Удалось макрос загрузить, но гиперссылки он не преобразует, а создает рядом пустые обычные...
Выдается ошибка в этой строке:
ActiveDocument.Footnotes.Add oHyp.Range, , oHyp.TextToDisplay
Обратитесь на наш форум, там помогут.
хотите расскажу как сделать просто обычный текст ( если ссылки из Вики например) , но они будут открываемы при ctrl + click ( удобно для печати)?
Выберем весь текст , далее пкм , далее шрифт, --> выбираем цвет текста черный + убираем подчеркивание
СПАСИБО!!!! Очень помогли! Успехов Вам!
Чего?? Ставим курсор после гиперссылки, тыкаем backspace и все!!! А он тут статьи пишет!
Спасибо! Очень полезно
а как сделать наоборот? текст вида http://wordexpert.ru/ сделать активной гиперссылкой автоматически во всем документе?
Большое спасибо, даже у меня - суперчайника всё получилось!
Подскажите как сделать точно обратное: скопировал список рассылки из мэйл.ру, но вставился только простой текст. Адресов много, вручную преобразовывать их, добавляя пробелы, желания нет. Не могу сообразить как сделать.