Как удалить гиперссылки в Word

Привет, друзья. В этой статье я поведаю вам о трех способах убрать гиперссылки в документе Word: удалить их вручную (одну за одной), используя горячие клавиши или используя функциональностью Visual Basic. А что же такое гиперссылка? Гиперссылка — это просто ссылка на какую-либо часть документа либо ссылка, ведущая на какой-либо сайт или страничку в интернете. Поэтому, если они вам в документе не нужны, давайте научимся их удалять.

 

Удаляем гиперссылки вручную одну за одной

1. Находим гипперсылку в документе Word

2. Нажимаем по ней правой кнопкой мыши, в контекстном меню выбираем «Удалить гиперссылку»Удаляем гиперссылки вручную

Как видите, ручной способ помогает убрать именно те ссылки в документе Word, которые вам не нужны. Хорошо, если у вас в документе их 1-5 штук, а если больше и нужно удалить их все? Перейдем к другому способу.

Убираем гиперссылки при помощи горячих клавиш

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

1. Выделим весь текст в документе с помощью комбинации CTRL+AВыделяем весь текст в Word

2. Удаляем все гиперссылки в документе Word, нажав CTRL+Shift+F9

Избавляемся от ссылок с помощью скрипта Visual Basic

Еще один способ, который избавит вас от рутины удаления.

1. Нажимаем ALT+F11, запуститься Microsoft Visual Basicкак в ворде удалить все гиперссылки сразу

2. В верхнем меню выбираем Insert (вставить) > Module (модуль) и вставляем следующий ниже код

3. Когда код вставлен, запускаем его выполнение, нажав на кнопку F5

Код 1 (удаляет все ссылки в активном документе)

Sub KillTheHyperlinks()
 ' -----------------------------------------------
 ' Removes all hyperlinks from the document:
 ' Text to display is left intact
 ' -----------------------------------------------
 With ThisDocument
 ' Loop while there are hyperlinks afoot!
 While .Hyperlinks.Count > 0
 .Hyperlinks(1).Delete
 Wend
 End With
 ' Shut this off, don't need anymore popping up
 Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
 End Sub

Код 2 (удаляет все гиперссылки во всех открытых документах)

Sub KillTheHyperlinksInAllOpenDocuments()
 ' -----------------------------------------------
 ' Removes all hyperlinks from any open documents
 ' Text to display is left intact
 ' -----------------------------------------------
 Dim doc As Document
 Dim szOpenDocName As String
' Loop through all open documents:
 For Each doc In Application.Documents
 ' Store the document name
 szOpenDocName = doc.Name
 ' Remove the hyperlinks from that document
 With Documents(szOpenDocName)
 ' Loop while there are hyperlinks afoot!
 While .Hyperlinks.Count > 0
 .Hyperlinks(1).Delete
 Wend
 End With
 ' Shut this off, don't need anymore popping up
 Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
 Next doc
 End Sub

В текстовом редакторе MS Word есть много способов по выполнению различных задач. Если Вам нравится материал на моем сайте — подписывайтесь на обновления. Также свежими выпусками я делюсь в группах в ВК и ОК (ссылки в меню).

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

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

четырнадцать − 13 =