Como selecionar e copiar todos os hiperlinks de um documento do Word?
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.
- Abra o Documento do Word contendo os hiperlinks e pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
- 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
- Clique no botão Executar para executar o código VBA. Um novo documento será aberto contendo todos os hiperlinks do documento original.
>>>
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.
- Abra o Documento do Word e pressione Alt + F11 para abrir o editor VBA.
- 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
- Clique no botão Executar Um novo documento será criado contendo apenas os endereços dos hiperlinks (texto simples).
>>>
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.
- Clique em Kutools Plus > Copiar Hiperlink.
- Na caixa de diálogo Copiar todos os hiperlinks para a área de transferência, selecione a opção desejada.
- 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.
- Se você selecionar a opção Endereços dos Hiperlinks apenas o endereço do hiperlink será copiado como texto simples.
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! |
Artigos Relacionados:
- Inserir, remover e listar todos os hiperlinks do documento atual no Word
- Inserir múltiplos hiperlinks em um documento no Word
- Remover todos os hiperlinks no Word
Melhores Ferramentas de Produtividade para Office
Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!
🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preserva Formato) / Super Traduzir (Preserva Formato) / Redação por IA / Revisão por IA...
📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...
✏ Edição de Conteúdo: Localizar e Substituir em Lote em Vários Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...
🧹 Limpeza Sem Esforço: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...
➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...
🔍 Seleções Precisas: Identifique Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos de Selecionar...
⭐ Melhorias Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documentos /11 Ferramentas de Conversão...

Melhores Ferramentas de Produtividade para Office
Kutools para Word – 100+ Ferramentas para Word
- 🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir / Super Traduzir / Redação por IA / Revisão por IA
- 📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Converter em Lote para PDF
- ✏ Edição de Conteúdo: Localizar e Substituir em Lote / Redimensionar Todas as Imagens
- 🧹 Limpeza Sem Esforço: Remover Espaços Extras / Remover Quebras de Seção
- ➕ Inserções Criativas: Inserir Separadores de Milhar / Inserir Caixas de Seleção / Criar QR Codes