Jak vybrat a zkopírovat všechny hypertextové odkazy z dokumentu Word?

V některých případech máte dlouhý dokument, ve kterém existuje více hypertextových odkazů, a stačí zkopírovat všechny hypertextové odkazy najednou z tohoto dokumentu a poté je vložit do jiného. Existuje nějaký způsob, jak je rychle zkopírovat všechny najednou, místo aby jste je kopírovali jeden po druhém?

Zkopírujte všechny hypertextové odkazy nebo pouze adresy do schránky pomocí Kutools pro Word

Zkopírujte všechny hypertextové odkazy pomocí VBA

1. Otevřete dokument Word, do kterého chcete zkopírovat hypertextové odkazy, a stiskněte Alt + F11 k otevření Okno aplikace Microsoft Visual Based.

2. cvaknutí Vložit > Modula zkopírujte následující VBA do okna.

VBA: Zkopírujte všechny hypertextové odkazy

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. Klepněte na tlačítko Běh tlačítko pro spuštění kódu VBA. Poté se všechny hypertextové odkazy zkopírují do nového dokumentu. Nový dokument můžete uložit později. Výsledek můžete vidět následovně.

Poznámka: Tento VBA lze spustit pouze tehdy, když jsou všechny hypertextové odkazy propojeny s textem, pokud jsou obrázky s hypertextovými odkazy, tento kód VBA nemůže fungovat.

Extrahujte všechny adresy hypertextových odkazů pomocí jazyka VBA

1. Otevřete dokument Word, ze kterého chcete extrahovat hypertextové odkazy, a stiskněte Alt + F11 k otevření Okno aplikace Microsoft Visual Based.

2. cvaknutí Vložit > Modula zkopírujte následující VBA do okna.

VBA: Extrahujte všechny adresy hypertextových odkazů

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. Klepněte na tlačítko Běh tlačítko pro spuštění kódu VBA. Poté jsou všechny adresy hypertextových odkazů extrahovány do nového dokumentu, který můžete uložit později.

Poznámka: Adresa hypertextových odkazů není v původním pořadí.

Zkopírujte všechny hypertextové odkazy nebo pouze adresy do schránky pomocí Kutools pro Word

Pokud chcete snadno a rychle zkopírovat všechny hypertextové odkazy nebo pouze adresy do schránky z dokumentu Word, Zkopírujte hypertextový odkaz užitečnost Kutools pro Word uděláte mi tuto laskavost?

Po instalaci Kutools pro Word, prosím, postupujte takto:

1. cvaknutí Kutools Plus > Zkopírujte hypertextový odkaz.

2. V dialogovém okně Kopírovat všechny hypertextové odkazy do schránky vyberte jednu z možností, jak potřebujete.

Nyní vyberte jedno umístění, na které chcete umístit hypertextové odkazy, stiskněte Ctrl + V vložit je.

Zkopírujte a vložte hypertextové odkazy

Zkopírujte a vložte adresy hypertextových odkazů

Demo: Zkopírujte všechny hypertextové odkazy v dokumentu aplikace Word

Související články:

• Vložit, odebrat a zobrazit seznam všech hypertextových odkazů na aktuální dokument v aplikaci Word
• Vložte více hypertextových odkazů na dokument v aplikaci Word
• Odeberte všechny hypertextové odkazy v aplikaci Word

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Funkce AI Kutools: Generovat obsah / Přepsat text / Dokument Q&A / Získejte rychlé odpovědi / Překládat dokumenty / Polský dokument (zachovat formát)...

📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...) / Dávkový převod do PDF...

✏ Úprava obsahu: Dávkové hledání a nahrazování ve více souborech / Změnit velikost všech obrázků / Transponujte řádky a sloupce tabulky / Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory / Sekce přestávky / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete na Odstranit skupina...

➕ Kreativní vložky: Vložit Tisíc separátorů / Zaškrtávací políčka / Tlačítka rádia / QR kód / čárový kód / Více obrázků / Objevte více v Vložit skupina...

???? Přesné výběry: Přesně Konkrétní stránky / Tabulky / Tvary / Nadpis odstavce / Vylepšete navigaci pomocí vice vybrat funkce...

⭐ Vylepšení hvězd: Přejděte na libovolné místo / Automatické vkládání opakujícího se textu / Přepínání mezi okny dokumentu / 11 Konverze Tools...

???? Chcete si tyto funkce vyzkoušet? Stáhněte si Kutools pro Word nyní! ????

Stažení zdarma     Kup nyní     Další informace o Kutools pro Word

 

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - 100+ nástrojů pro Word

• 🤖 Funkce AI Kutools: Generovat, Přepsat, Shrnout, přeložit Dokumenty / Získejte rychlé odpovědi / Polský dokument (zachovat formát)
• 📘 Mistrovství dokumentů: Rozdělit stránky / Sloučit dokumenty / Dávkový převod do PDF
• ✏ Úprava obsahu: Dávkové hledání a nahrazení / Změnit velikost všech obrázků
• 🧹 Čištění bez námahy: Odstraňte další mezery / Odstraňte konce sekcí
• ➕ Kreativní vložky: Vložte tisíce oddělovačů / Vložit zaškrtávací políčka / Vytvářejte QR kódy

Stažení zdarma Kup nyní Zjistěte více o Kutools