У Денниса есть небольшой макрос, который отлично справляется с удалением гиперссылок из документа. Он только что получил новый документ, с которым нужно работать, и в нем довольно много гиперссылок в сносках. Макрос не удаляет эти гиперссылки, а удаление их вручную — огромная рутинная работа. Деннис задается вопросом, есть ли способ удалить гиперссылки в сносках сразу.

Собственно, выход есть. При желании вы можете сделать это вручную, выполнив следующие действия:

  1. Поместите указатель вставки в текст сноски. (Неважно, какая сноска.)

  2. Нажмите Ctrl + A. Это выбирает все сноски. (Если выделен весь текст в вашем документе, это означает, что вы не выполнили шаг 1.)

  3. Нажмите Ctrl + Shift + F9. Это преобразует гиперссылки в выделенном тексте (сноски) в обычный текст.

Обратите внимание, что эти шаги фактически преобразуют все поля в выделенном тексте в обычный текст. Поскольку гиперссылки реализованы с помощью полей, они преобразуются. Но то же самое и с любыми другими полями, которые могут быть в ваших сносках. Если вы не хотите изменять другие поля или если вам нужно немного работать с гиперссылками в сносках, вы можете вместо этого использовать макрос.

Следующий макрос избавится от гиперссылок только в сносках:

Sub RemoveFNH()

Dim h As Hyperlink

With ActiveDocument         If .Footnotes.Count >= 1 Then             With .StoryRanges(wdFootnotesStory)

For Each h In .Hyperlinks                     h.Delete                 Next h             End With         End If     End With End Sub

Обратите внимание, что важной частью макроса является спецификация работы с диапазоном истории wdFootnotesStory. Документы Word могут состоять из нескольких диапазонов историй, каждый из которых представляет разные элементы, такие как верхние и нижние колонтитулы, сноски и т. Д. Если вы хотите удалить гиперссылки из всех частей документа (то есть из всех диапазонов историй), тогда вы можно использовать еще более короткий макрос:

Sub RemoveAllHyperlinks()

Dim r As Range     Dim h As Hyperlink

For Each r In ActiveDocument.StoryRanges         For Each h In rng.Hyperlinks             h.Delete         Next h     Next r End Sub

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

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (4636) применим к Microsoft Word 2007, 2010, 2013 и 2016.