Перейти к содержимому

Kutools для Office — один пакет. Пять инструментов. Выполняйте больше.

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

Author Sun Last modified

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

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

Используя VBA, вы можете извлечь все гиперссылки из документа и скопировать их в новый документ.

  1. Откройте документ Word, содержащий гиперссылки, и нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
  2. Нажмите Вставить > Модуль, затем скопируйте и вставьте следующий код 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. Нажмите кнопку Выполнить для запуска кода VBA. Откроется новый документ, содержащий все гиперссылки из исходного документа.
    Document with text with hyperlinks >>> New document with only text with hyperlinks

Примечание: Этот метод VBA работает только с текстовыми гиперссылками. Он не извлекает гиперссылки, встроенные в изображения.

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

Этот метод 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. Нажмите кнопку Выполнить Будет создан новый документ, содержащий только адреса гиперссылок (простой текст).
    Document with text with hyperlinks >>> New document with only hyperlink addresses

Примечание: Извлеченные адреса гиперссылок могут не появиться в том же порядке, что и в исходном документе.

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

Kutools для Word предоставляет простой способ скопировать все гиперссылки или только их адреса в буфер обмена всего за несколько кликов.

Kutools для Word,оснащённый ИИ 🤖, предлагает более 100 удобных функций для упрощения ваших задач.
  1. Нажмите Kutools Plus > Копировать гиперссылку.
    Copy Hyperlink button on the Kutools tab on the ribbon
  2. В диалоговом окне «Копировать все гиперссылки в буфер обмена» выберите нужную опцию.
    Copy all hyperlinks to clipboard dialog box
  3. Вставьте скопированные гиперссылки туда, куда хотите, нажав Ctrl + V.
  • Если вы выберете опцию Гиперссылки будут скопированы как отображаемый текст, так и сама гиперссылка.
    Text with hyperlinks pasted
  • Если вы выберете опцию Адреса гиперссылок будет скопирован только адрес гиперссылки в виде простого текста.
    Hyperlinks addresses pasted
Kutools для Word — это идеальный надстройка для Word, которая упрощает вашу работу и повышает навыки обработки документов. Получите сейчас!

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

Узнайте о вкладке Kutools / Kutools Plus в этом видео от Kutools для Word. Наслаждайтесь 100+ функциями и постоянно бесплатными AI-утилитами. Скачайте прямо сейчас!

Вкладки для просмотра и редактирования нескольких документов Word/книг Excel, как в Chrome и Edge!

Как и при просмотре нескольких веб-страниц в Chrome, Safari и Edge, Office Tab позволяет открывать и управлять несколькими документами Word или книгами Excel в одном окне Word или Excel. Переключение между документами или книгами теперь просто осуществляется одним щелчком по их вкладкам!

Попробуйте Office Tab бесплатно прямо сейчас!

Связанные статьи:

Лучшие инструменты для повышения производительности в офисе

Kutools for Word — Поднимите свой опыт работы с Word на новый уровень, используя более 100 впечатляющих функций!

🤖 Возможности ИИ Kutools: AI Ассистент / Ассистент в Реальном Времени / Супер Полировка (Сохраняет форматирование) / Супер Перевод (Сохраняет форматирование) / Искусственный интеллект для редактирования / Проверка с помощью ИИ...

📘 Мастерство работы с Документом: Разделить страницы / Объединить документы / Экспортировать диапазон в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF...

✏ Редактирование текста сообщения: Пакетный поиск и замена в нескольких файлах / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...

🧹 Легкая очистка: Удалить лишние пробелы / Разрывы разделов / Текстовые поля / Гиперссылки / Для получения дополнительных инструментов удаления перейдите в группу Удалить...

➕ Креативные вставки: Вставить тысячные разделители / Флажки / Переключатели / QR-код / Штрихкод / Несколько изображений / Узнайте больше в группе Вставить...

🔍 Точные выделения: Определить конкретные страницы / Таблицы / Фигуры / Абзацы заголовков / Улучшайте навигацию с помощью дополнительных функций выбора...

⭐ Особые улучшения: Перейти к любому диапазону / Автоматическая вставка повторяющегося текста / Переключение между окнами документа /11 инструментов преобразования...

🌍 Поддержка более40 языков: Используйте Kutools на предпочитаемом языке — поддерживаются Английский, Испанский, Немецкий, Французский, Китайский и еще более40 языков!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Хотите попробовать эти функции? Загрузите Kutools for Word сейчас! 🚀
 

✨ Kutools for Office — Одна установка, пять мощных инструментов!

Включает Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Получите все5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Мгновенно экономьте время и повышайте продуктивность

Лучшие инструменты для повышения производительности в офисе

Kutools for Word - 100+ инструментов для Word

Бесплатная загрузка Купить Подробнее о Kutools