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 Word

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.

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.

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.

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

1. klik Kutools Plus > Kopiraj hiperpovezavo.

2. V pogovornem oknu izberite eno možnost, kot jo potrebujete.

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

Kopirajte in prilepite hiperpovezave

Kopirajte in prilepite naslov hiperpovezave

  Predstavitev: kopirajte hiperpovezavo

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!

Relativni članki:

• Vstavite, odstranite in navedite vse hiperpovezave do trenutnega dokumenta v Wordu
• V dokument v Word vstavite več hiperpovezav
• Odstranite vse hiperpovezave v Wordu

---

Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

• Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
• V Wordov dokument hkrati vstavite več slik v mape.
• Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
• Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
• Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...

Preberi več Prenesi zdaj Nakup