Word, будучи программой с хорошими связями, имеет функцию, которая автоматически преобразует URL-адрес в гиперссылку. Хотя вы можете отключить эту функцию, чтобы Word не выполнял преобразование, у вас могут быть документы, которые уже содержат поля ссылок. Или вы можете получить файл от кого-то другого, кто не отключал эту функцию. В этих случаях вы можете искать способы удалить существующие гиперссылки. Есть несколько способов решить эту проблему.

Первый (и самый простой) способ удалить гиперссылки — просто разместить точку вставки где-нибудь внутри ссылки и затем нажать Ctrl + Shift + F9. Это преобразует код поля обратно в обычный текст без ссылки. Фактически, если вы не используете поля в документе ни для чего, кроме гиперссылок, вы можете удалить каждую гиперссылку, просто выделив весь документ (нажмите Ctrl + A), а затем нажав Ctrl + Shift + F9. Однако вы должны понимать, что если в вашем документе есть другие поля, это действие также приводит к их преобразованию в обычный текст.

Еще один простой способ преобразовать гиперссылки в обычный текст — щелкнуть правой кнопкой мыши гиперссылку, которую вы хотите удалить, и выбрать «Удалить гиперссылку» в контекстном меню. Если у вас есть несколько документов, в которых вам нужно удалить гиперссылки, или у вас довольно много гиперссылок в вашем документе, то даже этот простой прием через некоторое время может стать утомительным. В этом случае вы можете создать макрос, который сделает всю работу за вас. Следующий макрос, RemoveHyperLinks, удаляет все гиперссылки в документе и обеспечивает отключение функции Автоформат для создания гиперссылок:

Sub RemoveHyperlinks()

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

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

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

Sub RemoveFNH()

Dim h As Hyperlink     Dim J As Integer

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

For J = .Hyperlinks.Count To 1 Step -1                     .Hyperlinks(J).Delete                 Next J             End With         End If

If .Endnotes.Count >= 1 Then             With .StoryRanges(wdEndnotesStory)

For J = .Hyperlinks.Count To 1 Step -1                     .Hyperlinks(J).Delete                 Next J             End With         End If     End With End Sub

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

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

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

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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (8713) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Making_Live_URLs_Into_Normal_Text [Преобразование живых URL в обычный текст].