Как выбрать и скопировать все гиперссылки из документа Word?

При работе с длинным документом Word, содержащим множество гиперссылок — будь то ссылки на веб-сайты, документы или сетевые расположения — иногда возникает необходимость скопировать все эти гиперссылки для таких задач, как аудит, обмен информацией, составление списка источников или перенос содержимого. Ручной выбор каждой гиперссылки не только неэффективен, но также может привести к ошибкам и пропуску ссылок. К счастью, существует несколько практических методов, позволяющих извлечь и скопировать все гиперссылки — либо вместе с Отображаемый текст, либо только Адрес гиперссылки — что значительно экономит время. В этом руководстве рассматриваются различные подходы — с использованием встроенных функций Word, кода VBA и Kutools для Word — чтобы помочь вам эффективно собирать гиперссылки в соответствии с вашими потребностями.

---

Копирование всех гиперссылок в новый документ с помощью VBA

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

1. Откройте документ Word, содержащий гиперссылки. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне VBA выберите Вставка>Модуль. Скопируйте и вставьте следующий код VBA в окно модуля:

   Sub HyperlinksExtract()
   'Updateby20140214
       Dim oLink As Hyperlink
       Dim docCurrent As Document 'current document
       Dim docNew As Document 'new document
       Dim rngStory As StoryRanges
       Set docCurrent = ActiveDocument
       Set docNew = Documents.Add
       For Each oLink In docCurrent.Hyperlinks
           oLink.Range.Copy
           docNew.Activate
           Selection.Paste
           Selection.TypeParagraph
       Next
       
       Set docNew = Nothing
       Set docCurrent = Nothing
   End Sub
   

3. Нажмите кнопку Выполнить или клавишу F5, чтобы запустить код VBA. Код автоматически создаст новый документ Word, содержащий все гиперссылки из исходного документа. Затем вы сможете сохранить или дополнительно отредактировать этот новый документ по мере необходимости.

   >>>

---

Извлечение только Адрес гиперссылки (Обычный текст) в новый документ с помощью VBA

Когда вам нужны только URL-адреса гиперссылок — без отображаемого текста и форматирования, например при составлении списка источников или переносе данных, — другой метод VBA может извлечь исключительно адреса и вставить их в новый документ в виде обычного текста. Это идеальное решение для каталогизации или экспорта гиперссылок в технических задачах, аудите, а также при интеграции в веб-системы или базы данных.

1. Откройте документ Word и нажмите Alt + F11, чтобы открыть редактор VBA.
2. Выберите Вставка>Модуль. Скопируйте и вставьте следующий код VBA в модуль:

   Function GetAllHyperlinks()
   'Updateby20140214
       Dim docCurrent As Document
       Dim docNew As Document
       Dim oLink As Hyperlink
       Dim rng As Range
       Application.ScreenUpdating = False
       Set docCurrent = ActiveDocument
       Set docNew = Documents.Add
       For Each oLink In docCurrent.Hyperlinks
           Set rng = docNew.Range
           rng.Collapse
           rng.InsertParagraph
           rng.InsertAfter (oLink.Address)
       Next
       docNew.Activate
       Application.ScreenUpdating = True
       Application.ScreenRefresh
   End Function
   

3. Нажмите Выполнить или клавишу F5. Скрипт VBA просканирует ваш документ и создаст новый документ со всеми ссылками из «Списка адресов» в виде обычного текста. Этот новый документ легко копировать, экспортировать или использовать в другом программном обеспечении.

   >>>

---

Копирование Копировать гиперссылку или адресов в буфер обмена с помощью Kutools для Word

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

1. Перейдите на вкладку KUTOOLS PLUSв Лента Word, затем нажмите Копировать гиперссылку.

   

2. В диалоговом окне Скопировать все гиперссылки в буфер обменавыберите, хотите ли вы скопировать гиперссылки вместе с их Копировать гиперссылку (видимыми словами, связанными в вашем документе) или только Отображаемый текст (Адрес гиперссылки — URL-адреса).

   

3. Выбранные гиперссылки или адреса будут скопированы в буфер обмена. Теперь вы можете вставить их куда угодно — например, в новый документ, письмо или браузер — нажав Ctrl + V.

---

---

Демонстрация: копирование всех гиперссылок в документе Word

---

---

См. также:

• Вставка, удаление и перечисление всех гиперссылок в Текущий документ в Word
• Вставка нескольких гиперссылок в документ Word
• Удаление всех гиперссылок в Word