Hvordan vælges og kopieres alle hyperlinks fra et Word-dokument?
I nogle tilfælde har du et langt dokument med flere hyperlinks, der findes, og du behøver kun at kopiere alle hyperlinks på én gang fra dette dokument og derefter indsætte dem til et andet. Er der nogen måde, der hurtigt kan kopiere dem alle på én gang i stedet for at kopiere dem en efter en?
Kopier alle hyperlinks med VBA
1. Åbn det Word-dokument, som du vil kopiere hyperlinks, og tryk på Alt + F11 at åbne Microsoft Visual Based Application Window.
2. klik indsatte > Moduler, og kopier følgende VBA i vinduet.
VBA: Kopier alle hyperlinks
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. Klik på Kør knappen for at køre VBA-koden. Derefter kopieres alle hyperlinks til et nyt dokument. Du kan gemme det nye dokument senere. Du kan se resultatet som følger.
 |
 |
 |
Bemærk: Denne VBA kan kun køre, når alle hyperlinks er forbundet med tekst, hvis der er billeder med hyperlinks, kan denne VBA kode ikke fungere.
Udpak alle hyperlinkadresser med VBA
1. Åbn det Word-dokument, som du vil udpakke hyperlinks, og tryk på Alt + F11 at åbne Microsoft Visual Based Application Window.
2. klik indsatte > Moduler, og kopier følgende VBA i vinduet.
VBA: Udpak alle hyperlinkadresser
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. Klik på Kør knappen for at køre VBA-koden. Derefter ekstraheres alle hyperlinks-adresser i et nyt dokument, du kan gemme det senere.
|
|
 |
Bemærk: Uddrag af hyperlinks-adresse er ikke i den oprindelige rækkefølge.
Kopier alle hyperlinks eller kun adresser til udklipsholderen med Kutools til Word
Hvis du vil kopiere alle hyperlinks eller kun adresser til udklipsholder fra Word-dokument let og hurtigt, Kopier hyperlink nytte af Kutools for Word kan gøre dig denne tjeneste.
Efter installation Kutools til Word, gør venligst som nedenfor:
1. klik Kutools Plus > Kopier hyperlink.
2. I den springende dialogboks Kopier alle hyperlinks til udklipsholder skal du vælge en mulighed, som du har brug for.
Vælg nu et sted, du vil placere hyperlinks, tryk på Ctrl + V at indsætte dem.
| Kopier og indsæt hyperlinks |
 |
| Kopiér og indsæt hyperlinkadresser |
 |
Demo: Kopier alle hyperlinks i et Word-dokument
Oplev Kutools / Kutools Plus fanen i denne video fra Kutools for Word. Nyd 100+ funktioner og permanent gratis AI-værktøjer. Download nu!
| Fanebladssøgning og redigering af flere Word-dokumenter/Excel-projektmapper, ligesom i Chrome og Edge! |
Ligesom at gennemse flere websider i Chrome, Safari og Edge, giver Office Tab dig mulighed for at åbne og administrere flere Word-dokumenter eller Excel-projektmapper i ét Word-vindue eller Excel-vindue. Skift mellem dokumenter eller projektmapper er nu enkelt med et klik på deres faner! |
Relaterede artikler:
- Indsæt, fjern og lister alle hyperlinks til det aktuelle dokument i Word
- Indsæt flere hyperlinks til et dokument i Word
- Fjern alle hyperlinks i Word
Bedste kontorproduktivitetsværktøjer
Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!
🤖 Kutools AI-funktioner: Generer indhold / Omskriv tekst / Dokument Q&A / Få hurtige svar / Oversæt dokumenter / Polsk dokument (bevar format)...
📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...) / Batch Konverter til PDF...
✏ Indholdsredigering: Batch Find og Erstat på tværs af flere filer / Ændr størrelse på alle billeder / Transponer tabelrækker og kolonner / Konverter tabel til tekst...
🧹 Ubesværet rengøring: Fej væk Ekstra pladser / Afsnit bryder / Tekstbokse / Hyperlinks / For mere fjernelse af værktøjer, gå til Fjern gruppe...
➕ Kreative indlæg: Indsæt Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Flere billeder / Oplev mere i indsatte gruppe...
???? Præcisionsvalg: Find ud af Specifikke sider / tabeller / Former / Overskriftsparagraffer / Forbedre navigation med mere Type funktioner...
⭐ Stjerneforbedringer: Naviger til enhver placering / Auto-indsæt gentagen tekst / Skift mellem dokumentvinduer / 11 Konvertering Værktøjer...
Bedste kontorproduktivitetsværktøjer
Kutools for Word - 100+ værktøjer til Word
- 🤖 Kutools AI-funktioner: Generer, Omskriv, Opsummer, oversætte Dokumenter / Få hurtige svar / Polsk dokument (bevar format)
- 📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Batch Konverter til PDF
- ✏ Indholdsredigering: Batch Find og erstat / Ændr størrelse på alle billeder
- 🧹 Ubesværet rengøring: Fjern ekstra pladser / Fjern sektionsbrud
- ➕ Kreative indlæg: Indsæt tusinde separatorer / Indsæt afkrydsningsfelter / Opret QR-koder