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

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

Избавляемся от ссылок с помощью скрипта 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 не будет опубликован. Обязательные поля помечены *