Ir para o conteúdo principal

Como selecionar e copiar todos os hiperlinks de um documento do Word?

Em alguns casos, você tem um documento longo com vários hiperlinks existentes no e só precisa copiar todos os hiperlinks de uma vez deste documento e depois colá-los em outro. Existe alguma maneira de copiar rapidamente todos eles de uma vez em vez de copiá-los um por um?

Copie todos os hiperlinks com VBA

Extraia todos os endereços de hiperlinks com VBA

Copie todos os hiperlinks ou apenas endereços para a área de transferência com o Kutools for Wordboa ideia 3


seta azul bolha direita Copie todos os hiperlinks com VBA

1. Abra o documento do Word para o qual deseja copiar os hiperlinks e pressione Alt + F11 para abrir o Janela do aplicativo Microsoft Visual Based.

2. Clique inserção > Móduloe copie o seguinte VBA na janela.

VBA: Copie todos os hiperlinks

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. Clique na Execute botão para executar o código VBA. Em seguida, todos os hiperlinks são copiados para um novo documento. Você pode salvar o novo documento mais tarde. Você pode ver o resultado da seguinte maneira.

Nota: Este VBA só pode ser executado quando todos os hiperlinks estão vinculados ao word; se houver imagens com hiperlinks, este código VBA não funcionará.


seta azul bolha direita Extraia todos os endereços de hiperlinks com VBA

1. Abra o documento do Word do qual deseja extrair os hiperlinks e pressione Alt + F11 para abrir o Janela do aplicativo Microsoft Visual Based.

2. Clique inserção > Móduloe copie o seguinte VBA na janela.

VBA: Extraia todos os endereços de hiperlinks

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. Clique na Execute botão para executar o código VBA. Em seguida, todos os endereços de hiperlinks são extraídos em um novo documento, você pode salvá-lo mais tarde.

Nota: O endereço dos hiperlinks de extração não está na ordem original.


seta azul bolha direita Copie todos os hiperlinks ou apenas endereços para a área de transferência com o Kutools for Word

Se você deseja copiar todos os hiperlinks ou apenas os endereços para a área de transferência de um documento do Word de forma fácil e rápida, o Copiar hiperlink utilidade de Kutools for Word posso te fazer este favor.

Kutools for Word, com mais de  funções úteis, tornam seus trabalhos mais fáceis. 

Depois de instalar Kutools for Word, faça o seguinte:(Baixe gratuitamente o Kutools para Word agora!)

1. Clique Kutools Plus > Copiar hiperlink.
doc copiar hiperlinks 1

2. Na caixa de diálogo pop-up, escolha uma opção conforme necessário.
doc copiar hiperlinks 2

Agora, selecione um local onde deseja colocar os hiperlinks, pressione Ctrl + V para colá-los.

Copiar e colar hiperlinks
doc copiar hiperlinks 3
Copie e cole o endereço do hiperlink
doc copiar hiperlinks 4

Navegação com guias e edição de vários documentos do Word / pastas de trabalho do Excel como Firefox, Chrome, Internet Explore 10!

Você pode estar familiarizado com a visualização de várias páginas da web no Firefox/Chrome/IE e alternar entre elas clicando facilmente nas guias correspondentes. Aqui, o Office Tab oferece suporte a processamento semelhante, que permite navegar em vários documentos do Word ou pastas de trabalho do Excel em uma janela do Word ou janela do Excel e alternar facilmente entre eles clicando em suas guias.
Clique para testar gratuitamente o Office Tab!

Navegue por documentos com várias palavras em uma janela como o Firefox

Artigos relativos:

Melhores ferramentas de produtividade de escritório

Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!

🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo  /  Reescrever texto  /  Resumir documentos  /  Pergunte para obter informações com base no documento, tudo dentro do Word

📘 Domínio de documentos: Páginas divididas  /  Mesclar Documentos  /  Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...)  /  Conversão em lote para PDF  /  Exportar páginas como imagens  /  Imprima vários arquivos de uma vez...

Edição de conteúdo: Localização e substituição em lote em vários arquivos  /  Redimensionar todas as imagens  /  Transpor linhas e colunas da tabela  /  Converter tabela em texto...

🧹 Limpeza sem esforço: Varrer Espaços extras  /  Quebras de seção  /  Todos os cabeçalhos  /  Caixas de Texto  /  hiperlinks  / Para mais ferramentas de remoção, acesse nosso Remover Grupo...

Inserções criativas: Inserir Mil Separadores  /  Caixas de seleção  /  botões de rádio  /  QR Code  /  Código de barras  /  Tabela de linhas diagonais  /  Legenda da equação  /  Legenda da Imagem  /  Legenda da Tabela  /  Várias fotos  / Descubra mais no Inserir Grupo...

🔍 Seleções de precisão: Identificar páginas específicas  /  tabelas  /  formas  /  parágrafos de título  / Melhore a navegação com mais Selecione recursos...

Aprimoramentos de estrelas: Navegue rapidamente para qualquer local  /  inserir automaticamente texto repetitivo  /  alternar perfeitamente entre janelas de documentos  /  11 ferramentas de conversão...

👉 Quer experimentar esses recursos? Kutools para Word oferece um 60-day free trial, sem limitações! 🚀
 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Good information! It assisted me in extracting links from an html file I had opened in Word. Refer to <a href="https://cookieclicker2.io">cookie clicker</a> is idea new.
This comment was minimized by the moderator on the site
How can we export word file hyperlinks and it's Text display to an excel file ? 
This comment was minimized by the moderator on the site
Impresionante! Millón de gracias.Me has acercado a la solución muchísimo pero si fuera posible copiarlos en la fila 1 de un excel ya creado sería impresionante. Es para aplicarles una formula que separa los links del texto.Un saludo y un millón de gracias!!!

This comment was minimized by the moderator on the site
Thank you so much! This was exactly what I was looking for!
This comment was minimized by the moderator on the site
I am amazed. That's gold. You saved me a ton of work.
This comment was minimized by the moderator on the site
Height of Legendary, thanks a million
This comment was minimized by the moderator on the site
Can I get the same script to run in outlook?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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<br /> 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]
This comment was minimized by the moderator on the site
This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
This comment was minimized by the moderator on the site
Thank you very much for this script. This helped me to extract 5K links. Thank you very much.
This comment was minimized by the moderator on the site
Thank you. Just what I needed to parse a document.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations