Hoe selecteer en kopieer ik alle hyperlinks uit een Word-document?
In sommige gevallen heeft u een lang document met meerdere hyperlinks in, en hoeft u alleen alle hyperlinks in één keer uit dit document te kopiëren en ze vervolgens in een ander document te plakken. Is er een manier om ze snel allemaal tegelijk te kopiëren in plaats van ze een voor een te kopiëren?
Kopieer alle hyperlinks met VBA
Extraheer alle hyperlinkadressen met VBA
Kopieer alle hyperlinks of alleen adressen naar het klembord met Kutools voor Word
Kopieer alle hyperlinks met VBA
1. Open het Word-document waarvan u de hyperlinks wilt kopiëren en druk op Alt + F11 om de te openen Microsoft Visual Based Application-venster.
2. klikken Invoegen > Moduleen kopieer de volgende VBA naar het venster.
VBA: kopieer alle hyperlinks
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. Klik op het lopen knop om de VBA-code uit te voeren. Vervolgens worden alle hyperlinks naar een nieuw document gekopieerd. U kunt het nieuwe document later opslaan. U kunt het resultaat als volgt zien.
Opmerking: Deze VBA kan alleen worden uitgevoerd als alle hyperlinks aan een woord zijn gekoppeld, als er afbeeldingen met hyperlinks zijn, kan deze VBA-code niet werken.
Pak alle hyperlinkadressen uit met VBA
1. Open het Word-document waarvan u de hyperlinks wilt extraheren en druk op Alt + F11 om de te openen Microsoft Visual Based Application-venster.
2. klikken Invoegen > Moduleen kopieer de volgende VBA naar het venster.
VBA: extraheer alle hyperlinkadressen
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. Klik op het lopen knop om de VBA-code uit te voeren. Vervolgens worden alle hyperlinkadressen in een nieuw document geëxtraheerd, u kunt het later opslaan.
Opmerking: Het adres van de uittreksel-hyperlinks staat niet in de oorspronkelijke volgorde.
Kopieer alle hyperlinks of alleen adressen naar het klembord met Kutools voor Word
Als u alle hyperlinks of alleen adressen eenvoudig en snel vanuit een Word-document naar het klembord wilt kopiëren, kan de Kopieer hyperlink nut van Kutools for Word kan u dit plezier doen.
Kutools for Word, met meer dan handige functies, maakt uw werk gemakkelijker. | ||
Na het installeren van Kutools voor Word, doe het als volgt:(Gratis download Kutools voor Word nu!)
1. klikken Koetools Plus > Kopieer hyperlink.
2. Kies in het popping-dialoogvenster een optie die u nodig heeft.
Selecteer nu een locatie waar u de hyperlinks wilt plaatsen, druk op Ctrl + V om ze te plakken.
Kopieer en plak hyperlinks |
Kopieer en plak het hyperlinkadres |
Demo: kopieer hyperlink
Bladeren en bewerken met tabbladen in meerdere Word-documenten / Excel-werkmappen als Firefox, Chrome, Internet Explore 10! |
U bent wellicht bekend om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen de webpagina's te schakelen door eenvoudig op de overeenkomstige tabbladen te klikken. Hier ondersteunt Office Tab vergelijkbare verwerking, waarmee u door meerdere Word-documenten of Excel-werkmappen kunt bladeren in één Word-venster of Excel-venster, en gemakkelijk tussen deze documenten kunt schakelen door op hun tabbladen te klikken. |
Relatieve artikelen:
- Voeg alle hyperlinks van het huidige document in Word in, verwijder ze en vermeld ze
- Voeg meerdere hyperlinks naar een document in Word in
- Verwijder alle hyperlinks in Word
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...