Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

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

Author Sun Last modified

Se você tem um documento longo no Word com múltiplos hiperlinks e precisa copiá-los todos de uma vez, selecionar cada um manualmente pode ser demorado. Felizmente, existem maneiras eficientes de extrair e copiar todos os hiperlinks ou apenas seus endereços. Este guia apresentará diferentes métodos para realizar isso rapidamente.

Copiar todos os hiperlinks para um novo documento usando VBA

Usando o VBA, você pode extrair todos os hiperlinks de um documento e copiá-los para um novo documento.

  1. Abra o Documento do Word contendo os hiperlinks e pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
  2. Clique em Inserir > Módulo, depois copie e cole o seguinte código VBA na janela do módulo: 
    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 no botão Executar para executar o código VBA. Um novo documento será aberto contendo todos os hiperlinks do documento original.
    Document with text with hyperlinks >>> New document with only text with hyperlinks

Nota: Este método VBA funciona apenas para hiperlinks baseados em texto. Ele não extrai hiperlinks incorporados em imagens.

Extrair apenas os endereços dos hiperlinks (texto simples) para um novo documento usando VBA

Este método VBA extrai apenas os endereços dos hiperlinks de um documento e os cola em um novo documento.

  1. Abra o Documento do Word e pressione Alt + F11 para abrir o editor VBA.
  2. Clique em Inserir > Módulo, depois copie e cole o seguinte código 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. Clique no botão Executar Um novo documento será criado contendo apenas os endereços dos hiperlinks (texto simples).
    Document with text with hyperlinks >>> New document with only hyperlink addresses

Nota: Os endereços dos hiperlinks extraídos podem não aparecer na mesma ordem que no documento original.

Copiar hiperlinks ou endereços para a área de transferência usando Kutools para Word

Kutools para Word oferece uma maneira simples de copiar todos os hiperlinks ou apenas seus endereços para a área de transferência com alguns cliques.

Kutools para Word,equipado com IA 🤖, oferece mais de 100 recursos práticos para simplificar suas tarefas.
  1. Clique em Kutools Plus > Copiar Hiperlink.
    Copy Hyperlink button on the Kutools tab on the ribbon
  2. Na caixa de diálogo Copiar todos os hiperlinks para a área de transferência, selecione a opção desejada.
    Copy all hyperlinks to clipboard dialog box
  3. Cole os hiperlinks copiados onde desejar pressionando Ctrl + V.
  • Se você selecionar a opção Hiperlinks tanto o texto de exibição quanto o hiperlink serão copiados.
    Text with hyperlinks pasted
  • Se você selecionar a opção Endereços dos Hiperlinks apenas o endereço do hiperlink será copiado como texto simples.
    Hyperlinks addresses pasted
Kutools para Word é o complemento definitivo para o Word que simplifica seu trabalho e aprimora suas habilidades de processamento de documentos. Adquira agora!

Demonstração: Copiar Todos os Hiperlinks em um Documento do Word

Descubra a aba Kutools / Kutools Plus neste vídeo do Kutools for Word. Aproveite 100+ recursos e utilitários de IA permanentemente gratuitos. Faça o download agora!

Navegação e Edição em Abas para Múltiplos Documentos do Word/Pastas de Trabalho do Excel, Assim Como no Chrome e Edge!

Assim como navegar por várias páginas da web no Chrome, Safari e Edge, o Office Tab permite que você abra e gerencie vários documentos do Word ou pastas de trabalho do Excel em uma única janela do Word ou do Excel. Alternar entre documentos ou pastas de trabalho agora é simples com um clique em suas abas!

Experimente o Office Tab gratuitamente agora!

Artigos Relacionados:

Melhores Ferramentas de Produtividade para Office

Kutools for Word – Aprimore sua experiência no Word com mais de 100 recursos incríveis!

🤖 Funcionalidades de IA do Kutools: AI Assistant / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em vários formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Delimitadores de Milhares / Caixas de Seleção / Botões de Rádio / Código QR / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções Precisas: Localize Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...

⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools for Word agora! 🚀
 

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools