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.
| 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.
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. |
 |
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
Najboljša pisarniška orodja za produktivnost
Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!
🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino / Prepiši besedilo / Povzemite dokumente / Povprašajte za informacije na podlagi dokumenta, vse v Wordu
📘 Obvladovanje dokumentov: Razdeljene strani / Spoji dokumente / Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...) / 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 napora: Pometite stran Dodatni prostori / Prelomi oddelkov / Vse glave / Besedilna polja / Hiperpovezave / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...
➕ 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 Vstavi skupino...
???? Natančne izbire: Natančna točka določene strani / mize / Oblike / odstavki naslova / Izboljšajte navigacijo z več Izberite funkcije...
⭐ 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...
