Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe selecteer en kopieer ik alle hyperlinks van een Word-document?

In sommige gevallen hebt u een lang document met meerdere hyperlinks die bestaan ​​in, en u hoeft alleen alle hyperlinks in dit document te kopiëren en vervolgens in een ander document te plakken. Is er een manier om snel allemaal tegelijk te kopiëren in plaats van ze een voor een te kopiëren?

Kopieer alle hyperlinks met VBA

Pak alle hyperlinksadressen uit met VBA

Kopieer alle hyperlinks of alleen adressen naar het klembord met Kutools voor Wordgoed idee3


pijl blauwe rechterbel 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 Window.

2. klikken bijvoegsel > module, en kopieer de volgende VBA naar het venster.

VBA: alle hyperlinks kopiëren

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 om de VBA-code uit te voeren. Vervolgens worden alle hyperlinks gekopieerd naar een nieuw document. U kunt het nieuwe document later opslaan. U kunt het resultaat als volgt bekijken.

Let op: Deze VBA kan alleen worden uitgevoerd als alle hyperlinks zijn gekoppeld aan een woord, als er afbeeldingen zijn met hyperlinks, kan deze VBA-code niet werken.


pijl blauwe rechterbel Pak alle hyperlinks-adressen 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 Window.

2. klikken bijvoegsel > module, en kopieer de volgende VBA naar het venster.

VBA: extraheer alle hyperlinks-adressen

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 om de VBA-code uit te voeren. Vervolgens worden alle hyperlinksadressen geëxtraheerd in een nieuw document, u kunt het later opslaan.

Let op: Het hyperlinks-adres van het uittreksel bevindt zich niet in de oorspronkelijke volgorde.


pijl blauwe rechterbel Kopieer alle hyperlinks of alleen adressen naar het klembord met Kutools voor Word

Als u alle hyperlinks of alleen de adressen naar het klembord vanuit Word-documenten eenvoudig en snel wilt kopiëren, moet u het volgende doen: Hyperlink kopiëren nut van Kutools for Word kan je deze gunst doen.

Kutools for Word, met meer dan 100 handige functies, maakt uw werk eenvoudiger.
Ga naar downloaden
Gratis proef 45 dagen

Na het installeren van Kutools voor Word, doe het als volgt:(Gratis download Kutools voor Word Now!)

1. klikken Kutools Plus > Hyperlink kopiëren.
doc kopiëren hyperlinks 1

2. Kies in het popping-dialoogvenster een optie zoals je wilt.
doc kopiëren hyperlinks 2

Selecteer nu één locatie waar u de hyperlinks wilt plaatsen, druk op Ctrl + V om ze te plakken.

Kopieer en plak hyperlinks
doc kopiëren hyperlinks 3
Kopieer en plak het hyperlinkadres
doc kopiëren hyperlinks 4

Met tabbladen bladeren en bewerken van meerdere Word-documenten / Excel-werkmappen als Firefox, Chrome, Internet Verken 10!

U kunt er bekend mee zijn om meerdere webpagina's in Firefox / Chrome / IE te bekijken en tussen deze pagina's te schakelen door eenvoudig op overeenkomstige tabbladen te klikken. Hier ondersteunt de Office-tab een vergelijkbare verwerking, waarmee u door meerdere Word-documenten of Excel-werkmappen kunt bladeren in één Word-venster of Excel-venster en eenvoudig kunt schakelen tussen deze documenten door op hun tabbladen te klikken.
Klik voor gratis proefversie van Office Tab!

Blader door documenten met meerdere woorden in één venster als Firefox

Relatieve artikelen:



Aanbevolen Word-productiviteitstools

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar uw 50% tijd

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
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! :-)