Note: The other languages of the website are Google-translated. Back to English

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
100
 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:


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. ...
Komentarji (16)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Omg to je legendarna stvar. Tako koristno. Najlepša hvala! :-)
Ta komentar je moderator na spletnem mestu minimiziral
uau, super je. Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
poziva "Napaka pri prevajanju: sintaksna napaka" Prosim pomagajte mi, moram opraviti veliko dela s tem .Odgovorite čim prej
Ta komentar je moderator na spletnem mestu minimiziral
Prav zares! ENO leto pozneje imam podobne težave in sem popolnoma obupana zaradi vaše čudovite pomoči!! Bog te blagoslovi!!
Ta komentar je moderator na spletnem mestu minimiziral
Hvala vam. Ravno tisto, kar sem potreboval za razčlenitev dokumenta.
Ta komentar je moderator na spletnem mestu minimiziral
Odlično! Pomagalo mi je izvleči nekaj povezav iz datoteke html, ki sem jo odprl z Wordom (Excel je nekaj povezav zavrgel). Tukaj je spremenjena koda, da bi lahko zgradili datoteko csv, ki bi jo lahko še naprej uporabljali. [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 /> Zatemni docCurrent kot dokument Zatemni docNew kot dokument Zatemni oPovezava kot hiperpovezava Zatemni rng kot obseg Application.ScreenUpdating = False Set docCurrent = ActiveDocument Set docNew = Documents.Add For Every oLink In docCurrent.Hyperlinks Set docNefwg. oLink.TextToDisplay) rng.InsertAfter (", ") rng.InsertAfter (oLink.Address) rng.InsertAfter (vbCrLf) Naslednji docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub[/quote]
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala za ta scenarij. To mi je pomagalo izluščiti 5K povezav. Najlepša hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Ta koda mi dobro deluje. Dva na primerih v opisu članka ne. Najlepša hvala in lep pozdrav.
Ta komentar je moderator na spletnem mestu minimiziral
To je super stvar! Najlepša hvala. Kakšne spremembe moram narediti v GetAllHyperlinks() za naslednji primer? -- izvirni dokument vsebuje običajno besedilo in povezave -- želeni rezultat: isti dokument, vendar vsaki povezavi sledi presledek in URL Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko dobim isti skript za zagon v Outlooku?
Ta komentar je moderator na spletnem mestu minimiziral
Height of Legendary, hvala milijon
Ta komentar je moderator na spletnem mestu minimiziral
sem začuden. To je zlato. Prihranil si mi tono dela.
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala! Točno to sem iskal!
Ta komentar je moderator na spletnem mestu minimiziral
Impresionante! Millón de gracias.Me ima 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!!!

Ta komentar je moderator na spletnem mestu minimiziral
Kako lahko izvozimo hiperpovezave word datoteke in njen prikaz besedila v datoteko excel? 
Ta komentar je moderator na spletnem mestu minimiziral
Dobra informacija! Pomagal mi je pri ekstrahiranju povezav iz datoteke html, ki sem jo odprl v Wordu. Glejte kliker piškotkov je ideja nova.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL