Hoe selecteer en kopieer ik alle hyperlinks uit een Word-document?
Als je een lang Word-document hebt met meerdere hyperlinks en ze allemaal tegelijk moet kopiëren, kan het handmatig selecteren van elk ervan tijdrovend zijn. Gelukkig zijn er efficiënte manieren om alle hyperlinks of alleen hun adressen te extraheren en te kopiëren. Deze gids introduceert verschillende methoden om dit snel te doen.
Kopieer alle hyperlinks naar een nieuw document met behulp van VBA
Met behulp van VBA kun je alle hyperlinks uit een document extraheren en kopiëren naar een nieuw document.
- Open het Word-document met de hyperlinks en druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
- Klik op Invoegen > Module, kopieer en plak vervolgens de volgende VBA-code in het modulevenster:
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
- Klik op de Uitvoeren knop om de VBA-code uit te voeren. Er wordt een nieuw document geopend met daarin alle hyperlinks uit het originele document.
>>>
Opmerking: Deze VBA-methode werkt alleen voor tekstgebaseerde hyperlinks. Het extraheert geen hyperlinks die zijn ingebed in afbeeldingen.
Extraheer alleen hyperlinkadressen (platte tekst) naar een nieuw document met behulp van VBA
Deze VBA-methode extraheert alleen de hyperlinkadressen uit een document en plakt ze in een nieuw document.
- Open het Word-document en druk op Alt + F11 om de VBA-editor te openen.
- Klik op Invoegen > Module, kopieer en plak vervolgens de volgende VBA-code:
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
- Klik op de Uitvoeren knop. Er wordt een nieuw document gemaakt met alleen de hyperlinkadressen (platte tekst).
>>>
Opmerking: De geëxtraheerde hyperlinkadressen kunnen niet in dezelfde volgorde verschijnen als in het originele document.
Kopieer hyperlinks of adressen naar het klembord met behulp van Kutools voor Word
Kutools voor Word biedt een eenvoudige manier om alle hyperlinks of alleen hun adressen naar het klembord te kopiëren met een paar klikken.
- Klik op Kutools Plus > Hyperlink Kopiëren.
- Selecteer in het dialoogvenster Kopieer alle hyperlinks naar klembord de gewenste optie.
- Plak de gekopieerde hyperlinks waar je wilt door op Ctrl + V te drukken.
- Als je de Hyperlinks optie selecteert, worden zowel de weergavetekst als de hyperlink gekopieerd.
- Als je de Hyperlinkadressen optie selecteert, wordt alleen het hyperlinkadres als platte tekst gekopieerd.
Demo: Kopieer alle hyperlinks in een Word-document
Ontdek de Kutools / Kutools Plus tab in deze video van Kutools voor Word. Geniet van 100+ functies en permanente gratis AI-hulpprogramma's. Download nu!
Tabbladen voor het bekijken en bewerken van meerdere Word-documenten/Excel-werkboeken, net zoals in Chrome en Edge! |
Net zoals het bekijken van meerdere webpagina's in Chrome, Safari en Edge, stelt Office Tab je in staat om meerdere Word-documenten of Excel-werkboeken in één Word-venster of Excel-venster te openen en beheren. Wisselen tussen documenten of werkboeken is nu eenvoudig met een klik op hun tabbladen! |
Gerelateerde artikelen:
- Invoegen, verwijderen en alle hyperlinks van het huidige document in Word weergeven
- Voeg meerdere hyperlinks toe aan een document in Word
- Verwijder alle hyperlinks in Word
Beste productiviteitstools voor kantoor
Kutools voor Word – Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!
🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools (Formaat behouden) / Super Vertalen (Formaat behouden) / AI Redactie / AI Proeflezen...
📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Selectie exporteren in diverse formaten (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...
✏ Inhoud bewerken: Batch Zoeken en Vervangen in meerdere bestanden / Alle afbeeldingen formaat wijzigen / Rij- en kolomindeling van tabellen transponeren / Tabel naar tekst converteren...
🧹 Moeiteloos opschonen: Verwijder extra spaties / sectie-eindes / tekstvakken / hyperlinks / Voor meer verwijderopties, ga naar de groep Verwijderen...
➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / selectievakjes / keuzerondjes / QR-code / barcode / meerdere afbeeldingen / Ontdek meer in de groep Invoegen...
🔍 Nauwkeurige selecties: Selecteer specifieke pagina’s / tabellen / vormen / kopalinea’s / Verbeter de navigatie met meer Selecteer -functies...
⭐ Ster-upgrades: Navigeer naar elke locatie / Automatisch herhalende tekst invoegen / Wissel tussen documentvensters /11 conversietools...

Beste productiviteitstools voor kantoor
Kutools voor Word – 100+ tools voor Word
- 🤖 Kutools AI-functies: AI Assistent / Realtime Assistent / Super Pools / Super Vertalen / AI Redactie / AI Proeflezen
- 📘 Documentbeheersing: Pagina’s splitsen / Documenten samenvoegen / Batch converteren naar PDF
- ✏ Inhoud bewerken: Batch Zoeken en Vervangen / Alle afbeeldingen formaat wijzigen
- 🧹 Moeiteloos opschonen: Verwijder extra spaties / Verwijder sectie-eindes
- ➕ Creatieve invoegingen: Voeg duizendtallen-scheidingstekens toe / Voeg selectievakjes toe / Maak QR-codes