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