Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

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, e você só precisa copiar todos os hiperlinks de uma vez a partir deste documento e depois colá-los para outro. Existe alguma maneira de copiá-los rapidamente ao mesmo tempo em vez de copiá-los um a 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 idéia3


arrow blue right bubble Copie todos os hiperlinks com VBA

1. Abra o documento do Word que deseja copiar os hiperlinks e pressione Alt + F11 para abrir o Janela de aplicativo com base em Visual Microsoft.

2. Clique inserção > Módulo, e copie o seguinte VBA para a 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 Corrida para executar o código VBA. Então, 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 forma.

Observação: Este VBA só pode ser executado quando todos os hiperlinks estão vinculados com a palavra, se houver imagens com hiperlinks, este código VBA não pode funcionar.


arrow blue right bubble Extraia todos os endereços de hiperlinks com VBA

1. Abra o documento do Word que deseja extrair os hiperlinks e pressione Alt + F11 para abrir o Janela de aplicativo com base em Visual Microsoft.

2. Clique inserção > Módulo, e copie o seguinte VBA para a 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 Corrida para executar o código VBA. Então todos os endereços de hiperlinks são extraídos em um novo documento, você pode salvá-lo mais tarde.

Observação: O endereço do extrato de hiperlinks não está na ordem original.


arrow blue right bubble Copie todos os hiperlinks ou apenas endereços para a área de transferência com o Kutools for Word

Se você quiser copiar todos os hiperlinks ou apenas endereços para a área de transferência do documento do Word de maneira fácil e rápida, Copiar hiperlink utilidade de Kutools for Word Você pode fazer esse favor.

Kutools for Word, com mais de 100 funções úteis, facilita seus trabalhos.
Vá para Download
Jornada 45 de teste gratuito

Depois de instalar Kutools for Word, por favor, faça o seguinte:(Free Download Kutools para Word agora!)

1. Clique Kutools Plus > Copiar hiperlink.
hiperlinks de cópia doc 1

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

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

Copie e cole hiperlinks
hiperlinks de cópia doc 3
Copie e cole o endereço do hiperlink
hiperlinks de cópia doc 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 para visualizar várias páginas da Web no Firefox / Chrome / IE e alternar entre elas clicando nas guias correspondentes com facilidade. Aqui, o Office Tab suporta 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 nas guias.
Clique para a versão gratuita do Office Tab!

Navegue vários documentos de palavras em uma janela como Firefox

Artigos relativos:



Ferramentas recomendadas de produtividade de palavras

Kutools for Word - Mais do que 100 Recursos avançados para Word, economize seu tempo 50%

  • Operações complicadas e repetidas podem ser feitas em processamento único em segundos.
  • Inserir várias imagens em pastas no documento do Word de uma só vez.
  • Mesclar e combinar vários arquivos do Word em pastas em um com o pedido desejado.
  • Divida o documento atual em documentos separados de acordo com o cabeçalho, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns e assim por diante ...
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! :-)