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 Word
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á.
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.
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.
2. Na caixa de diálogo pop-up, escolha uma opção conforme necessário.
Agora, selecione um local onde deseja colocar os hiperlinks, pressione Ctrl + V para colá-los.
Copiar e colar hiperlinks |
Copie e cole o endereço do hiperlink |
Demonstração: Copiar hiperlink
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. |
Artigos relativos:
- Insira, remova e liste todos os hiperlinks do documento atual no Word
- Insira vários hiperlinks para um documento no Word
- Remova todos os hiperlinks do Word
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...