Preskoči na glavno vsebino

Kako izbrati in kopirati vse hiperpovezave iz Wordovega dokumenta?

V nekaterih primerih imate dolg dokument z več hiperpovezavami v njem in iz tega dokumenta morate le kopirati vse hiperpovezave hkrati in jih nato prilepiti v drugega. Ali obstaja način, da lahko hitro kopirate vse naenkrat, namesto da bi jih kopirali enega za drugim?

Kopirajte vse hiperpovezave z VBA

Izvlecite vse naslove hiperpovezav z VBA

Kopirajte vse hiperpovezave ali samo naslove v odložišče s programom Kutools for Worddobra ideja3


puščica modri desni mehurček Kopirajte vse hiperpovezave z VBA

1. Odprite Wordov dokument, v katerega želite kopirati hiperpovezave, in pritisnite Alt + F11 da odprete Okno aplikacij Microsoft Visual Based.

2. klik Vstavi > Moduliin v okno kopirajte naslednji VBA.

VBA: kopirajte vse hiperpovezave

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. Kliknite Run za zagon kode VBA. Nato se vse hiperpovezave kopirajo v nov dokument. Nov dokument lahko shranite pozneje. Rezultat lahko vidite na naslednji način.

Opomba: Ta VBA se lahko zažene samo, če so vse hiperpovezave povezane z besedo. Če obstajajo slike s hiperpovezavami, ta koda VBA ne more delovati.


puščica modri desni mehurček Izvlecite vse hiperpovezave, naslovljene z VBA

1. Odprite Wordov dokument, v katerega želite izvleči hiperpovezave, in pritisnite Alt + F11 da odprete Okno aplikacij Microsoft Visual Based.

2. klik Vstavi > Moduliin v okno kopirajte naslednji VBA.

VBA: ekstrahiraj vse naslove hiperpovezav

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. Kliknite Run za zagon kode VBA. Nato so vsi naslovi hiperpovezav ekstrahirani v novem dokumentu, kasneje pa jih lahko shranite.

Opomba: Naslov izvlečka hiperpovezav ni v prvotnem vrstnem redu.


puščica modri desni mehurček Kopirajte vse hiperpovezave ali samo naslove v odložišče s programom Kutools for Word

Če želite iz Wordovega dokumenta enostavno in hitro kopirati vse hiperpovezave ali samo naslove v odložišče, bo Kopiraj hiperpovezavo uporabnost Kutools za Word vam lahko naredim to uslugo.

Kutools za Word, z več kot  priročne funkcije, vam olajša delo. 

Po namestitvi Kutools za Word, naredite spodaj:(Brezplačno prenesite Kutools za Word zdaj!)

1. klik Kutools Plus > Kopiraj hiperpovezavo.
hiperpovezave do kopiranja dokumenta 1

2. V pogovornem oknu izberite eno možnost, kot jo potrebujete.
hiperpovezave do kopiranja dokumenta 2

Zdaj izberite eno mesto, kamor želite postaviti hiperpovezave, pritisnite Ctrl + V da jih prilepite.

Kopirajte in prilepite hiperpovezave
hiperpovezave do kopiranja dokumenta 3
Kopirajte in prilepite naslov hiperpovezave
hiperpovezave do kopiranja dokumenta 4

Brskanje in urejanje več Wordovih dokumentov / delovnih zvezkov Excel kot Firefox, Chrome, Internet Explore 10!

V Firefoxu / Chromeu / IE si morda že želite ogledati več spletnih strani in med njimi preklapljati tako, da enostavno kliknete ustrezne zavihke. Tu Office Tab podpira podobno obdelavo, ki omogoča brskanje po več Wordovih dokumentih ali Excelovih delovnih zvezkih v enem Wordovem oknu ali Excelovem oknu in enostavno preklapljanje med njimi s klikom na njihove zavihke.
Kliknite brezplačno preskusno različico zavihka Office!

Brskajte po več besednih dokumentih v enem oknu kot Firefox

Relativni članki:

Najboljša pisarniška orodja za produktivnost

Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!

Poglobite se v spodaj poudarjene funkcije oz kliknite tukaj, če želite raziskati celotno moč Kutools for Word.

📘 Obvladovanje dokumentov: Razdeljene strani  /  Spoji dokumente  /  Izvozi izbor v različnih formatih (PDF/TXT/DOC/XLSX)  /  Paketna pretvorba v PDF  /  Izvozi strani kot slike  /  Natisnite več datotek hkrati ...

Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek   /  Spremeni velikost vseh slik   /  Prenos vrstic in stolpcev tabele  /  Pretvori tabelo v besedilo ...

🧹 Čiščenje brez naporaPometite stran Dodatni prostori  /  Prelomi oddelkov  /   Vse glave  /  Besedilna polja  /  Hiperpovezave  /  Za več orodij za odstranjevanje pojdite v našo skupino za odstranjevanje

Ustvarjalni vložki: Vstavi Tisoč ločila  /  Potrditvena polja  /  Radijske tipke  /  QR koda  /  Črtna koda  /  Tabela z diagonalno črto  /  Naslov enačbe  /  Opis slike  /  Naslov tabele  /  Več slik  /  Odkrijte več v naši skupini za vstavljanje

???? Natančne izbire: Natančno določite določene strani  /  mize  /  Oblike  /  odstavki naslova  /  Z lahkoto krmarite z našo Select Group

Izboljšave zvezdic: Hitra navigacija do katere koli lokacije  /  samodejno vstavljanje ponavljajočega se besedila  /  brez težav preklapljate med okni dokumentov  /  11 Orodja za pretvorbo ...

Preoblikujte svoje Wordove naloge s Kutools. 👉 Prenesite s 30-dnevnim preizkusom zdaj 🚀.

 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Good information! It assisted me in extracting links from an html file I had opened in Word. Refer to <a href="https://cookieclicker2.io">cookie clicker</a> is idea new.
This comment was minimized by the moderator on the site
How can we export word file hyperlinks and it's Text display to an excel file ? 
This comment was minimized by the moderator on the site
Impresionante! Millón de gracias.Me has acercado a la solución muchísimo pero si fuera posible copiarlos en la fila 1 de un excel ya creado sería impresionante. Es para aplicarles una formula que separa los links del texto.Un saludo y un millón de gracias!!!

This comment was minimized by the moderator on the site
Thank you so much! This was exactly what I was looking for!
This comment was minimized by the moderator on the site
I am amazed. That's gold. You saved me a ton of work.
This comment was minimized by the moderator on the site
Height of Legendary, thanks a million
This comment was minimized by the moderator on the site
Can I get the same script to run in outlook?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
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<br /> 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]
This comment was minimized by the moderator on the site
This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
This comment was minimized by the moderator on the site
Thank you very much for this script. This helped me to extract 5K links. Thank you very much.
This comment was minimized by the moderator on the site
Thank you. Just what I needed to parse a document.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations