Как в MS Word быстро удалить все гиперссылки из текста?

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

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

Теперь я готов ответить на этот вопрос положительно. На сайте 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. Можете оставить текст на кнопке как есть или присвойте ей какую-либо иконку.

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

(с) Оригинал : [ссылка заблокирована по решению администрации проекта]