Sådan vælger og kopierer du alle hyperlinks fra en Word dokumentere?

I nogle tilfælde har du et langt dokument med flere hyperlinks, der findes, og du behøver kun at kopiere alle hyperlinks på én gang fra dette dokument og derefter indsætte dem til et andet. Er der nogen måde, der hurtigt kan kopiere dem alle på én gang i stedet for at kopiere dem en efter en?

Kopier alle hyperlinks med VBA

Uddrag alle hyperlinks-adresser med VBA

Kopier alle hyperlinks eller kun adresser til udklipsholder med Kutools for Word

Kopier alle hyperlinks med VBA

1. Åbn Word dokument, som du vil kopiere hyperlinkene, og tryk på Alt + F11 at åbne Microsoft Visual Based Application Window.

2. klik indsatte > Moduler, og kopier følgende VBA i vinduet.

VBA: Kopier 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 på Kør knappen for at køre VBA-koden. Derefter kopieres alle hyperlinks til et nyt dokument. Du kan gemme det nye dokument senere. Du kan se resultatet som følger.

Bemærk: Denne VBA kan kun køre, når alle hyperlinks er forbundet med word, hvis der er billeder med hyperlinks, kan denne VBA-kode ikke fungere.

Uddrag alle hyperlinks adresser med VBA

1. Åbn Word dokument, som du vil udpakke hyperlinkene, og tryk på Alt + F11 at åbne Microsoft Visual Based Application Window.

2. klik indsatte > Moduler, og kopier følgende VBA i vinduet.

VBA: Uddrag alle hyperlinks-adresser

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 på Kør knappen for at køre VBA-koden. Derefter ekstraheres alle hyperlinks-adresser i et nyt dokument, du kan gemme det senere.

Bemærk: Uddrag af hyperlinks-adresse er ikke i den oprindelige rækkefølge.

Kopier alle hyperlinks eller kun adresser til udklipsholder med Kutools for Word

Hvis du vil kopiere alle hyperlinks eller kun adresser til udklipsholder fra Word dokumenter nemt og hurtigt Kopier hyperlink nytte af Kutools for Word kan gøre dig denne tjeneste.

Efter installation Kutools for Wordskal du gøre som nedenfor:(Gratis download Kutools for Word Nu!)

1. klik Kutools Plus > Kopier hyperlink.

2. I poppedialogen skal du vælge en mulighed, som du har brug for.

Vælg nu et sted, du vil placere hyperlinks, tryk på Ctrl + V at indsætte dem.

Kopier og indsæt hyperlinks

Kopier og indsæt hyperlinkadresse

  Demo: Kopier hyperlink

Fanebladssøgning og redigering af flere Word Dokumenter/Excel arbejdsbøger som Firefox, Chrome, Internet Explore 10!

Du er måske bekendt med at se flere websider i Firefox/Chrome/IE, og skifte mellem dem ved nemt at klikke på tilsvarende faner. Her, Office Tab understøtter lignende behandling, som giver dig mulighed for at gennemse flere Word dokumenter eller Excel arbejdsbøger i én Word vindue eller Excel vindue, og skift nemt mellem dem ved at klikke på deres faner. Klik for gratis prøveversion af Office Tab!

Relative artikler:

• Indsæt, fjern og liste alle hyperlinks i det aktuelle dokument i Word
• Indsæt flere hyperlinks til et dokument i Word
• Fjern alle hyperlinks i Word

---

Anbefales Word Produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, Spar din 50 % tid

• Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
• Indsæt flere billeder på tværs af mapper i Word dokument med det samme.
• Flet og kombiner flere Word filer på tværs af mapper i én med din ønskede rækkefølge.
• Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
• Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...

Læs mere Hent nu Køb