Как выбрать и скопировать все гиперссылки из документа Word?
В некоторых случаях у вас есть длинный документ с несколькими гиперссылками, и вам нужно только скопировать сразу все гиперссылки из этого документа, а затем вставить их в другой. Есть ли способ быстро скопировать их все сразу вместо того, чтобы копировать их по одному?
Скопируйте все гиперссылки с помощью VBA
Извлеките все адреса гиперссылок с помощью VBA
Скопируйте все гиперссылки или только адреса в буфер обмена с помощью Kutools for Word
Скопируйте все гиперссылки с помощью VBA
1. Откройте документ Word, гиперссылки которого вы хотите скопировать, и нажмите Alt + F11 для открытия Окно приложения на основе Microsoft Visual.
2. Нажмите Вставить > Модули, и скопируйте следующий VBA в Window.
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. Нажмите Run кнопку, чтобы запустить код VBA. Затем все гиперссылки копируются в новый документ. Вы можете сохранить новый документ позже. Вы можете увидеть результат следующим образом.
 |
 |
 |
Примечание: Этот VBA может работать только тогда, когда все гиперссылки связаны со словом, если есть изображения с гиперссылками, этот код VBA не может работать.
Извлечь все адреса гиперссылок с помощью VBA
1. Откройте документ Word, в котором вы хотите извлечь гиперссылки, и нажмите Alt + F11 для открытия Окно приложения на основе Microsoft Visual.
2. Нажмите Вставить > Модули, и скопируйте следующий VBA в Window.
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. Нажмите Run кнопку, чтобы запустить код VBA. Затем все адреса гиперссылок извлекаются в новый документ, вы можете сохранить его позже.
|
|
 |
Примечание: Адреса гиперссылок извлечения находятся не в исходном порядке.
Скопируйте все гиперссылки или только адреса в буфер обмена с помощью Kutools for Word
Если вы хотите легко и быстро скопировать все гиперссылки или только адреса в буфер обмена из документа Word, Копировать гиперссылку полезности Kutools for Word могу оказать вам эту услугу.
| Kutools for Word, с более чем удобные функции, облегчают вашу работу. | ||
После установки Kutools for Word, сделайте, как показано ниже:(Бесплатная загрузка Kutools for Word прямо сейчас!)
1. Нажмите Кутулс Плюс > Копировать гиперссылку.
2. В появившемся диалоговом окне выберите нужный вариант.
Теперь выберите одно место, где вы хотите разместить гиперссылки, нажмите Ctrl + V для их вставки.
| Скопируйте и вставьте гиперссылки |
 |
| Скопируйте и вставьте адрес гиперссылки |
 |
Демо: копирование гиперссылки
Просмотр и редактирование нескольких документов Word / книг Excel с вкладками в Firefox, Chrome, Internet Explore 10! |
|
Возможно, вы знакомы с просмотром нескольких веб-страниц в Firefox / Chrome / IE и возможностью переключения между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word или книг Excel в одном окне Word или Excel и легко переключаться между ними, щелкая их вкладки. |
 |
Относительные статьи:
- Вставить, удалить и перечислить все гиперссылки текущего документа в Word
- Вставить несколько гиперссылок на документ в Word
- Удалить все гиперссылки в Word
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...
