Kuinka valita ja kopioida kaikki hyperlinkit Word-asiakirjasta?

Jos sinulla on pitkä Word-asiakirja, jossa on useita hyperlinkkejä ja haluat kopioida ne kaikki kerralla, jokaisen manuaalinen valitseminen voi viedä aikaa. Onneksi on olemassa tehokkaita tapoja purkaa ja kopioida kaikki hyperlinkit tai vain niiden osoitteet. Tämä opas esittelee erilaisia ​​menetelmiä tämän nopeaan toteuttamiseen.

Kopioi hyperlinkit tai osoitteet leikepöydälle Kutools for Wordin avulla

Kopioi kaikki hyperlinkit uuteen asiakirjaan VBA:n avulla

VBA:n avulla voit purkaa kaikki hyperlinkit asiakirjasta ja kopioida ne uuteen asiakirjaan.

1. Avaa hyperlinkit sisältävä Word-asiakirja ja paina Alt + F11 avaa Microsoft Visual Basic for Applications ikkunassa.
2. Napauta liite > Moduulit, kopioi ja liitä seuraava VBA-koodi moduuliikkunaan:

   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. Valitse ajaa -painiketta suorittaaksesi VBA-koodin. Uusi asiakirja avautuu, joka sisältää kaikki alkuperäisen asiakirjan hyperlinkit.

   >>>

Pura vain hyperlinkkien osoitteet (pelkkä teksti) uuteen asiakirjaan VBA:n avulla

Tämä VBA-menetelmä poimii asiakirjasta vain hyperlinkkien osoitteet ja liittää ne uuteen asiakirjaan.

1. Avaa Word-asiakirja ja paina Alt + F11 avataksesi VBA-editorin.
2. Napauta liite > Moduulit, kopioi ja liitä seuraava VBA-koodi:

   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. Valitse ajaa -painiketta. Luodaan uusi asiakirja, joka sisältää vain hyperlinkkien osoitteet (pelkkä teksti).

   >>>

Kopioi hyperlinkit tai osoitteet leikepöydälle Kutools for Wordin avulla

Kutools for Word tarjoaa yksinkertaisen tavan kopioida kaikki hyperlinkit tai vain niiden osoitteet leikepöydälle muutamalla napsautuksella.

1. Napauta Kutools Plus > Kopioi hyperlinkki.

   

2. In Kopioi kaikki hyperlinkit leikepöydälle valintaikkunassa, valitse haluamasi vaihtoehto.

   

3. Liitä kopioidut hyperlinkit minne haluat painamalla Ctrl + V.

Esittely: Kopioi kaikki hyperlinkit Word-asiakirjassa

Aiheeseen liittyviä artikkeleita:

• Lisää, poista ja luettele kaikki nykyisen asiakirjan hyperlinkit Wordissa
• Lisää useita hyperlinkkejä asiakirjaan Wordissa
• Poista kaikki hyperlinkit Wordista

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Paranna sanakokemustasi Overilla 100 Merkittäviä ominaisuuksia!

🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super Polish (säilytettävä muoto) / Super Translate (säilytä muoto) / AI editointi / AI Proofread...

📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Vie valikoima eri muodoissa (PDF/TXT/DOC/HTML...) / Erämuunnos PDF-muotoon...

✏ Sisältö Editointi: Eräetsi ja korvaa useita tiedostoja / Muuta kaikkien kuvien kokoa / Transponoi taulukon rivit ja sarakkeet / Muunna taulukko tekstiksi...

🧹 Vaivaton puhdistus: Pyyhkäise pois Ylimääräiset tilat / Leikkaukset / Tekstilaatikot / Hyperlinkit / Jos haluat lisää irrotustyökaluja, siirry kohtaan poista ryhmä...

➕ Luovat lisäosat: Aseta Tuhat erottimet / Valintaruudut / Radiopainikkeet / QR koodi / Viivakoodi / Useita kuvia / Tutustu lisää osoitteessa liite ryhmä...

🔍 Tarkkuusvalinnat: Tarkka kohta Tietyt sivut / taulukot / Muodot / Otsikko Kappaleet / Paranna navigointia lisää valita piirteet...

⭐ Tähtien parannukset: Siirry mihin tahansa sijaintiin / Lisää toistuvaa tekstiä automaattisesti / Vaihda asiakirjaikkunoiden välillä / 11 Muuntaminen Työkalut...

???? Haluatko kokeilla näitä ominaisuuksia? Lataa Kutools for Word nyt! 🚀

Ilmainen lataus     Osta nyt     Lue lisää Kutools for Wordista

 

Parhaat toimiston tuottavuustyökalut

Kutools for Word - Yli 100 Wordin työkalua

• 🤖 Kutools AI -ominaisuudet: AI-avustaja / Reaaliaikainen avustaja / Super puolalainen / Super käännös / AI editointi / AI Proofread
• 📘 Asiakirjan hallinta: Jaa sivut / Yhdistä asiakirjat / Erämuunnos PDF-muotoon
• ✏ Sisältö Editointi: Erä Etsi ja korvaa / Muuta kaikkien kuvien kokoa
• 🧹 Vaivaton puhdistus: Poista ylimääräiset välilyönnit / Poista osion katkokset
• ➕ Luovat lisäosat: Aseta Tuhat erottimet / Lisää valintaruudut / Luo QR-koodeja

Ilmainen lataus Osta nyt Lue lisää Kutoolsista