Иногда, при копировании материалов из браузера в документ MS Office кроме самого текста копируется еще и неявная информация, и часть слов оказывается гиперссылками.

Нижеприведенный скрипт позволяет удалить ВСЕ гиперссылки в документе.

Открываем редактор VBA (ALT+F11). В левой колонке в структуре проекта дважды кликаем по «ThisDocument».

vbaeditor

В открывшееся окно ввода вставляем код и нажимаем F5:

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

После этого все гиперссылки в документе пропадут.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *