Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

Извлечение всех адресов гиперссылок с помощью VBA

Скопируйте все гиперссылки или только адреса в буфер обмена с помощью Kutools for Wordхорошая идея3


arrow синий правый пузырь Скопируйте все гиперссылки с помощью 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 не может работать.


arrow синий правый пузырь Извлеките все ссылки гиперссылок 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. Затем все гиперссылки адреса извлекаются в новом документе, вы можете сохранить его позже.

Примечание: Адрес гиперссылки извлечения не находится в исходном порядке.


arrow синий правый пузырь Скопируйте все гиперссылки или только адреса в буфер обмена с помощью Kutools for Word

Если вы хотите просто и быстро скопировать все гиперссылки или только адреса в буфер обмена из документа Word, Скопировать гиперссылку полезности Kutools for Word могу сделать вам эту услугу.

Kutools for Word, с более чем 100 удобные функции, упрощают работу.
Перейти к загрузке
Бесплатная пробная версия 45 days

После установки Kutools для Word, пожалуйста, сделайте следующее:(Скачать Kutools для Word Now!)

1. Нажмите Kutools Plus > Скопировать гиперссылку.
документ копировать гиперссылки 1

2. В появившемся диалоговом окне выберите один вариант, который вам нужен.
документ копировать гиперссылки 2

Теперь выберите место, где вы хотите разместить гиперссылки, нажмите Ctrl + V для их вставки.

Скопируйте и вставьте гиперссылки
документ копировать гиперссылки 3
Скопируйте и вставьте адрес гиперссылки
документ копировать гиперссылки 4

Просмотр вкладок и редактирование нескольких документов Word / книг Excel как Firefox, Chrome, Internet Исследуйте 10!

Возможно, вам знакомо просматривать несколько веб-страниц в Firefox / Chrome / IE и переключаться между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word или книги Excel в одном окне Word или окне Excel и легко переключаться между ними, нажимая их вкладки.
Нажмите для бесплатной пробной версии Office Tab!

Просмотр нескольких документов Word в одном окне как Firefox

Относительные статьи:



Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Fabian · 1 years ago
    Thank you so much! This was exactly what I was looking for!
  • To post as a guest, your comment is unpublished.
    Adrine Bio · 1 years ago
    I am amazed. That's gold. You saved me a ton of work.
  • To post as a guest, your comment is unpublished.
    manny kuyr · 2 years ago
    [b]Height of Legendary, thanks a million[/b]
  • To post as a guest, your comment is unpublished.
    Shadab · 2 years ago
    Can I get the same script to run in outlook?
  • To post as a guest, your comment is unpublished.
    Tony Macelli · 3 years ago
    This is great stuff! Many thanks.
    What changes do I need to make to GetAllHyperlinks() for the following case?

    -- original document contains both normal text and links
    -- result wanted: same document but each link is followed by a space and the URL

    Thanks
  • To post as a guest, your comment is unpublished.
    Sanjay K. · 3 years ago
    Excellent! It helped me extract some links from an html file that I opened with Word (Excel was discarding some links). Here is the modified code so that a csv file could be built that could be further used.

    [quote]SubGetAllHyperlinks()
    ' Updateby20160504
    ' https://www.extendoffice.com/documents/word/1411-word-select-copy-all-hyperlinks.html+&cd=1&hl=en&ct=clnk&gl=us
    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.InsertAfter (oLink.TextToDisplay)
    rng.InsertAfter (", ")
    rng.InsertAfter (oLink.Address)
    rng.InsertAfter (vbCrLf)
    Next
    docNew.Activate
    Application.ScreenUpdating = True
    Application.ScreenRefresh
    End Sub[/quote]
    • To post as a guest, your comment is unpublished.
      Pompeia · 2 years ago
      This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
    • To post as a guest, your comment is unpublished.
      Rashesh Bosamiya · 3 years ago
      Thank you very much for this script.
      This helped me to extract 5K links.

      Thank you very much.
  • To post as a guest, your comment is unpublished.
    Dean · 3 years ago
    Thank you. Just what I needed to parse a document.
  • To post as a guest, your comment is unpublished.
    Maria · 3 years ago
    Indeed! ONE year later, am having similar issues and totally bawled over by your wonderful help!!
    God Bless YOu!!
  • To post as a guest, your comment is unpublished.
    sid · 4 years ago
    it is prompting " Compile Error: Syntax Error"
    Please help me, I need to do a lot of work using this .Reply asap
  • To post as a guest, your comment is unpublished.
    Mert · 5 years ago
    wow, its great. Thank you so much
  • To post as a guest, your comment is unpublished.
    Richie · 5 years ago
    Omg this is legendary stuff. So helpful. Thanks a lot! :-)