Como selecionar e copiar todas as hiperligações de um documento do Word?

Ao trabalhar com um documento do Word extenso repleto de inúmeras hiperligações — quer apontem para sites web, documentos ou localizações de rede — poderá, por vezes, precisar de copiar todas essas hiperligações para tarefas como auditorias, partilha, compilação de referências ou migração de conteúdos. Selecionar manualmente cada hiperligação não só é ineficiente como também pode provocar erros e omissões. Felizmente, existem vários métodos práticos que lhe permitem extrair e copiar todas as hiperligações — incluindo quer o texto de exibição com as ligações quer apenas os endereços dos hiperlinks — poupando-lhe tempo considerável. Este tutorial explora diversas abordagens — utilizando funcionalidades integradas do Word, código VBA e Kutools para Word — para o ajudar a recolher eficientemente as hiperligações de acordo com as suas necessidades.

---

Copiar todas as hiperligações para um novo documento utilizando VBA

Se precisar de extrair simultaneamente o texto de exibição e o endereço de cada hiperligação num documento do Word, o uso de código VBA permite reunir automaticamente todas as hiperligações num novo documento, simplificando significativamente a organização e a partilha. Esta solução é ideal quando necessita de um registo formatado de todas as hiperligações ou pretende rever facilmente o contexto associado a cada ligação real. É especialmente útil se o seu documento contiver centenas de hiperligações inseridas em texto ou tabelas.

1. Abra o documento do Word que contém as hiperligações. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Na janela do VBA, clique em Inserir>Módulo. 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 ou prima F5 para executar o código VBA. O código irá gerar automaticamente um novo documento do Word contendo todas as hiperligações do documento original. Pode, depois, guardar ou editar este novo documento conforme necessário.

   >>>

---

Extrair apenas os Endereço do hiperlink (Texto Simples) para um novo documento utilizando VBA

Em situações em que precise apenas dos URLs das hiperligações (endereços), sem qualquer texto de exibição ou formatação — por exemplo, ao criar uma lista de referências ou para migração de dados — um método VBA alternativo pode extrair exclusivamente os endereços e colá-los num novo documento como texto simples. Esta abordagem é ideal para catalogação ou exportação de hiperligações em tarefas técnicas, auditorias ou integração em sistemas web e bases de dados.

1. Abra o seu documento do Word e prima Alt + F11 para abrir o editor VBA.
2. Clique em Inserir>Módulo. Copie e cole o seguinte código VBA no módulo:

   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 em Executar ou prima F5. O script VBA analisará o seu documento e gerará um novo documento com todos os endereços dos hiperligações da Lista de Endereços como Texto Simples. Este novo documento é fácil de copiar, exportar ou utilizar noutro software.

   >>>

---

Copiar Hiperlink ou endereços para a área de transferência utilizando Kutools para Word

Kutools para Word oferece uma funcionalidade intuitiva para copiar instantaneamente todas as hiperligações ou apenas os respetivos endereços para a área de transferência, simplificando aquilo que, de outra forma, seria um processo moroso, com vários passos ou dependente de código. Este método é particularmente útil se precisar de integrar rapidamente ligações em e-mails, páginas web ou folhas de cálculo, sendo adequado a utilizadores de todos os níveis.

1. Navegue até ao separador KUTOOLS PLUSna Friso do Word, depois clique em Copiar Hiperlink.

   

2. Na caixa de diálogo Copiar Todos os Hyperlinks para a Área de Transferência, escolha se pretende Copiar Hiperlink com os respetivos Texto de Exibição (as palavras visíveis ligadas no seu documento) ou apenas os Endereço do hiperlink (os URLs).

   

3. As hiperligações ou endereços selecionados serão copiados para a área de transferência. Agora, pode colá-los em qualquer lugar — por exemplo, num novo documento, e-mail ou navegador — premindo Ctrl + V.

---

---

Demonstração: Copiar todas as hiperligações num documento do Word

---

---

Artigos relacionados:

• Inserir, remover e listar todas as hiperligações de Documento Atual no Word
• Inserir múltiplas hiperligações num documento no Word
• Remover todas as hiperligações no Word