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