Hur markerar och kopierar jag alla hyperlänkar från ett Word-dokument?
I vissa fall har du ett långt dokument med flera hyperlänkar i, och du behöver bara kopiera alla hyperlänkar samtidigt från detta dokument och sedan klistra in dem till en annan. Finns det något sätt kan snabbt kopiera dem alla samtidigt istället för att kopiera dem en efter en?
Kopiera alla hyperlänkar med VBA
Extrahera alla hyperlänkar adresser med VBA
Kopiera alla hyperlänkar eller endast adresser till Urklipp med Kutools för Word
Kopiera alla hyperlänkar med VBA
1. Öppna Word-dokumentet som du vill kopiera hyperlänkarna och tryck på Alt + F11 att öppna Microsoft Visual Based Application Window.
2. klick Insert > Modulernaoch kopiera följande VBA till fönstret.
VBA: Kopiera alla hyperlänkar
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. Klicka på Körning för att köra VBA-koden. Sedan kopieras alla hyperlänkar till ett nytt dokument. Du kan spara det nya dokumentet senare. Du kan se resultatet enligt följande.
 |
 |
 |
Notera: Denna VBA kan bara köras när alla hyperlänkar är länkade med ord. Om det finns bilder med hyperlänkar kan inte denna VBA-kod fungera.
Extrahera alla hyperlänkar adresser med VBA
1. Öppna Word-dokumentet som du vill extrahera hyperlänkarna och tryck på Alt + F11 att öppna Microsoft Visual Based Application Window.
2. klick Insert > Modulernaoch kopiera följande VBA till fönstret.
VBA: Extrahera alla hyperlänkar adresser
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. Klicka på Körning för att köra VBA-koden. Sedan extraheras alla hyperlänkadresser i ett nytt dokument, du kan spara det senare.
|
|
 |
Notera: Extrakten hyperlänkar adress finns inte i den ursprungliga ordningen.
Kopiera alla hyperlänkar eller endast adresser till Urklipp med Kutools för Word
Om du vill kopiera alla hyperlänkar eller bara adresser till Urklipp från Word-dokument enkelt och snabbt, kommer Kopiera hyperlänk nytta av Kutools för Word kan göra dig denna tjänst.
| Kutools för Word, med mer än praktiska funktioner, underlättar dina jobb. | ||
När du har installerat Kutools för Word, gör så här:（Gratis nedladdning Kutools för Word nu!)
1. klick Kutools Plus > Kopiera hyperlänk.
2. I poppdialogen väljer du ett alternativ efter behov.
Välj nu en plats du vill placera hyperlänkar, tryck på Ctrl + V att klistra in dem.
| Kopiera och klistra in hyperlänkar |
 |
| Kopiera och klistra in hyperlänkadress |
 |
Demo: Kopiera hyperlänk
Tabbad surfning och redigering av flera Word-dokument / Excel-arbetsböcker som Firefox, Chrome, Internet Explore 10! |
|
Du kanske är bekant att visa flera webbsidor i Firefox / Chrome / IE och växla mellan dem genom att enkelt klicka på motsvarande flikar. Här stöder Office Tab liknande bearbetning, som låter dig bläddra i flera Word-dokument eller Excel-arbetsböcker i ett Word-fönster eller Excel-fönster och enkelt växla mellan dem genom att klicka på deras flikar. |
 |
Relativa artiklar:
- Infoga, ta bort och lista alla hyperlänkar för det aktuella dokumentet i Word
- Infoga flera hyperlänkar till ett dokument i Word
- Ta bort alla hyperlänkar i Word
Bästa kontorsproduktivitetsverktyg
Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!
🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll / Skriv om text / Sammanfatta dokument / Fråga för information baserat på dokument, allt i Word
📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF / Exportera sidor som bilder / Skriv ut flera filer samtidigt...
✏ Innehållsredigering: Batch Hitta och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...
🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Alla rubriker / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till vår Ta bort gruppen...
➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Diagonal linjebord / Bildtext för ekvation / Bild Bildtext / Tabelltextning / Flera bilder / Upptäck mer i Infoga grupp...
🔍 Precisionsval: Precisera specifika sidor / Tabellerna / former / rubrikerna / Förbättra navigering med mer Välj funktioner...
⭐ Stjärnförbättringar: Navigera snabbt till vilken plats som helst / infoga repetitiv text automatiskt / växla sömlöst mellan dokumentfönster / 11 Konverteringsverktyg...
