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

Словесные решения 28 сентября, 2025

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

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

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

Способ 1: используйте функцию «Найти»

Сначала нажмите вкладку «Главная», затем кнопку со стрелкой рядом с командой «Найти».
В раскрывающемся меню выберите «Расширенный поиск», чтобы открыть диалоговое окно «Найти и заменить».
Затем нажмите кнопку «Дополнительно» и нажмите «Формат».
Выберите «Стиль», чтобы открыть окно «Найти стиль».
Выберите «Гиперссылка» и нажмите «ОК».
Затем нажмите «Найти в» и выберите «Основной документ».

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

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

Из-за этого недостатка мы рекомендуем вам другой способ, также выполняемый с помощью функции «Найти». См. раздел «Найти все гиперссылки в документе» в этой статье: Как найти, изменить и удалить гиперссылки в документе Word

Найдя все гиперссылки, вы выполняете операции «Копировать» и «Вставить», чтобы экспортировать их.

Способ 2: запустить коды VBA

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

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

Наконец, нажмите кнопку «Выполнить».

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

Кроме того, если необходимо обработать пакет файлов, вы можете запустить этот макрос ниже:

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

Не забудьте сначала расположить все документы в одной папке. Затем запустите приведенный выше макрос, чтобы получить поле ввода. Введите путь к папке и нажмите «ОК».

Все гиперссылки теперь доступны в новом документе.

Готов к ошибкам в словах

Как бы не хотелось нам столкнуться с ошибкой Word. Неизбежно страдать от этого время от времени. Наше предложение — когда Word рухнет, выбрав опытный Ремонт слов инструмент. Просто доверьте все профессионалу.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая xls урон и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com