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

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

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

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

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

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

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

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

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 есть много способов по выполнению различных задач. Если Вам нравится материал на моем сайте — подписывайтесь на обновления. Также свежими выпусками я делюсь в группах в ВК и ОК (ссылки в меню).

Немного юмора:

За свою жизнь человек проводит в туалете около 4-х лет. Но если у него там ловит вайфай, то в 3 раза больше.

Оцените статью
Я работаю в Офисе
Добавить комментарий

  1. Кирилл

    Спасибо, пригодились коды

    Ответить
  2. Юля

    Спасибо! контрл+шифт+ф9 помогли

    Ответить
  3. Асия

    Спасибо! Выручили! CTRL+A и CTRL+Shift+F9 -помогли.

    Ответить
Adblock
detector