Hur markerar och kopierar jag alla hyperlänkar från ett Word-dokument?

Om du har ett långt Word-dokument med flera hyperlänkar och behöver kopiera dem alla på en gång, kan det vara tidskrävande att manuellt välja var och en. Lyckligtvis finns det effektiva sätt att extrahera och kopiera alla hyperlänkar eller bara deras adresser. Denna guide kommer att introducera olika metoder för att åstadkomma detta snabbt.

Kopiera hyperlänkar eller adresser till urklipp med Kutools för Word

Kopiera alla hyperlänkar till ett nytt dokument med VBA

Med VBA kan du extrahera alla hyperlänkar från ett dokument och kopiera dem till ett nytt dokument.

1. Öppna Word-dokumentet som innehåller hyperlänkarna och tryck Alt + F11 att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulerna, kopiera och klistra sedan in följande VBA-kod i modulfönstret:

   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. Klicka på Körning knappen för att exekvera VBA-koden. Ett nytt dokument öppnas som innehåller alla hyperlänkar från originaldokumentet.

   >>>

Extrahera endast hyperlänkadresser (oformaterad text) till ett nytt dokument med VBA

Denna VBA-metod extraherar endast hyperlänkadresserna från ett dokument och klistrar in dem i ett nytt dokument.

1. Öppna Word-dokumentet och tryck Alt + F11 för att öppna VBA-redigeraren.
2. Klicka Insert > Modulerna, kopiera och klistra sedan in följande VBA-kod:

   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. Klicka på Körning knapp. Ett nytt dokument kommer att skapas som endast innehåller hyperlänkadresserna (oformaterad text).

   >>>

Kopiera hyperlänkar eller adresser till urklipp med Kutools för Word

Kutools för Word ger ett enkelt sätt att kopiera alla hyperlänkar eller bara deras adresser till urklipp med några få klick.

1. Klicka Kutools Plus > Kopiera hyperlänk.

   

2. I Kopiera alla hyperlänkar till urklipp i dialogrutan väljer du önskat alternativ.

   

3. Klistra in de kopierade hyperlänkarna var du vill genom att trycka på Ctrl + V.

Demo: Kopiera alla hyperlänkar i ett Word-dokument

Relaterade artiklar:

• Infoga, ta bort och lista alla hyperlänkar för det aktuella dokumentet i Word
• Infoga flera hyperlänkar till ett dokument i Word
• Ta bort alla hyperlänkar i Word

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk (bevara format) / Super Translate (Bevara format) / AI-redaktion / AI korrekturläsning...

📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF...

✏ Innehållsredigering: Batchsök och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till ta bort grupp...

➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Flera bilder / Upptäck mer i Insert grupp...

🔍 Precisionsval: Precisera Specifika sidor / Bord / Former / Rubrik stycken / Förbättra navigering med mer Välja pass...

⭐ Stjärnförbättringar: Navigera till valfri plats / Auto-infoga upprepad text / Växla mellan dokumentfönster / 11 Konvertering verktyg...

👉 Vill du prova dessa funktioner? Ladda ner Kutools för Word nu! 🚀

Gratis nedladdning     Köp nu     Lär dig mer om Kutools för Word

 

Bästa kontorsproduktivitetsverktyg

Kutools för Word - 100+ verktyg för Word

• 🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk / Super Translate / AI-redaktion / AI korrekturläsning
• 📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Batchkonvertera till PDF
• ✏ Innehållsredigering: Batch Hitta och ersätt / Ändra storlek på alla bilder
• 🧹 Enkel rengöring: Ta bort extra utrymmen / Ta bort sektionsbrott
• ➕ Kreativa inlägg: Sätt i tusen avskiljare / Infoga kryssrutor / Skapa QR-koder

Gratis nedladdning Köp nu Lär dig mer om Kutools