2 швидкі способи групового вилучення всіх гіперпосилань із документа Word

Ця стаття покаже вам 2 швидкі способи пакетного вилучення всіх гіперпосилань із документа Word, щоб перейти за посиланнями.

Поодиноко можуть бути сотні гіперпосилань, що розкидаються по всьому документу Word. У цьому випадку, якщо вам потрібно перейти за певним посиланням, вам потрібно пройтись по документу, щоб знайти його першим, що може бути такою проблемою для довгого файлу.

Однак якщо ви експортуєте їх у новий документ, все може стати набагато простішим. Ось наші рішення.

Спосіб 1: Використовуйте функцію «Знайти»

1. По-перше, натисніть вкладку «Домашня сторінка», а потім кнопку стрілки біля команди «Знайти».
2. У спадному меню виберіть «Розширений пошук», щоб відкрити діалогове вікно «Знайти та замінити».
3. Потім натисніть кнопку «Більше» та натисніть «Формат».
4. Виберіть “Стиль”, щоб відкрити вікно “Знайти стиль”.
5. Виберіть “Гіперпосилання” та натисніть “OK”.
6. Потім натисніть «Знайти в» і виберіть «Основний документ».

Зараз ви можете побачити всі гіперпосилання. Однак, якщо скопіювати та вставити їх у новий документ, ви побачите, що посилання втрачають форматування та стають звичайними текстами.

В даний час Microsoft не має рішення для цієї проблеми. Отже, вам доведеться перетворити звичайні тексти назад на гіперпосилання знову вручну. Ось наша попередня стаття, в якій перелічено різні способи, якими ви можете слідувати: 5 способів перетворити тексти URL-адрес на гіперпосилання у вашому документі Word

Через цей недолік ми рекомендуємо вам інший спосіб, також виконаний за допомогою функції “Знайти”. Будь ласка, зверніться до розділу “Знайти всі гіперпосилання в документі” у цій статті: Як знайти, змінити та видалити гіперпосилання у вашому документі Word

Після знаходження всіх гіперпосилань ви виконуєте роботу «Копіювати» та «Вставити», щоб експортувати їх.

Спосіб 2: Запустіть коди VBA

1. Перш за все, натисніть «Alt+F11», щоб відкрити редактор VBA.
2. Потім натисніть «Вставити» та виберіть «Модуль», щоб створити новий у рамках проекту «Звичайний».
3. Потім двічі клацніть модуль, щоб відкрити простір для редагування, і вставте наведені нижче коди:

Sub ExtractAllhyperlinksInDoc()
  Dim objDoc As Document, objNewDoc As Document
  Dim objHyperlink As Hyperlink
 
  '  Initialization
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  '  Copy hyperlinks and paste them to a new document.
  With objDoc
    For Each objHyperlink In .Hyperlinks
      objHyperlink.Range.Copy
      objNewDoc.Activate
      With Selection
        .Paste
        .InsertParagraph
        .Collapse Direction:=wdCollapseEnd
      End With
    Next objHyperlink
  End With
End Sub

4. Нарешті, натисніть кнопку «Виконати».

Тепер буде відкрито новий документ, і всі гіперпосилання там можна натискати.

Окрім того, у випадку, якщо потрібно обробити пакет файлів, ви можете запустити цей макрос нижче:

Sub ExtractHyperlinksFromMultiDoc()
  Dim objDoc As Document, objNewDoc As Document
  Dim objHyperlink As Hyperlink
  Dim strFile As String, strFolder As String
 
  '  Initialization
  Set objNewDoc = Documents.Add
  strFolder = InputBox("Enter folder path here: ", "Folder path")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
 
  '  Open each file in the folder to extract hyperlinks and past them to a new document.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
 
    With objDoc
      For Each objHyperlink In .Hyperlinks
        objHyperlink.Range.Copy
        objNewDoc.Activate
        With Selection
          .Paste
          .InsertParagraph
          .Collapse Direction:=wdCollapseEnd
        End With
      Next objHyperlink
    End With
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

Не забудьте спочатку розташувати всі документи в одній папці. Потім запустіть наведений вище макрос, щоб отримати поле введення. Введіть шлях до папки та натисніть “OK”.

Усі гіперпосилання тепер доступні в новому документі.

Готовий до помилок Word

Хоч би як неохоче ми стикалися з помилкою Word. Часом від цього страждати неминуче. Ми пропонуємо, коли Word згортається, вибираючи досвідченого Відновлення слів інструмент. Просто залиште все за професіоналом.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі xls пошкодження та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com