Přejít k hlavnímu obsahu

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 pomocí VBA

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

Zkopírujte všechny hypertextové odkazy nebo pouze adresy do schránky pomocí Kutools pro Worddobrý nápad3


šipka modrá pravá bublina 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 v případě, že jsou všechny hypertextové odkazy propojeny se slovem, pokud existují obrázky s hypertextovými odkazy, tento kód VBA nemůže fungovat.


šipka modrá pravá bublina Extrahujte všechny adresy hypertextových odkazů pomocí 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í.


šipka modrá pravá bublina 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?

Kutools pro Word, s více než  užitečné funkce, které vám usnadní práci. 

Po instalaci Kutools pro Word, prosím, postupujte takto:(Stažení zdarma Kutools pro Word hned!)

1. cvaknutí Kutools Plus > Zkopírujte hypertextový odkaz.
hypertextové odkazy pro kopírování dokumentů 1

2. V rozbalovacím dialogovém okně vyberte jednu z možností, jak potřebujete.
hypertextové odkazy pro kopírování dokumentů 2

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
hypertextové odkazy pro kopírování dokumentů 3
Zkopírujte a vložte adresu hypertextového odkazu
hypertextové odkazy pro kopírování dokumentů 4

Procházení a úpravy více dokumentů Word / sešitů aplikace Excel jako Firefox, Chrome, Internet Prozkoumejte na kartách 10!

Možná znáte prohlížení více webových stránek ve Firefoxu / Chrome / IE a přepínáte mezi nimi snadným kliknutím na příslušné karty. Zde karta Office podporuje podobné zpracování, které vám umožní procházet více dokumentů aplikace Word nebo sešitů aplikace Excel v jednom okně aplikace Word nebo v okně aplikace Excel a snadno mezi nimi přepínat kliknutím na jejich karty.
Klikněte na bezplatnou zkušební verzi karty Office!

Procházejte více slovních dokumentů v jednom okně jako Firefox

Relativní články:

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

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

Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools pro Word.

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou ...

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

🧹 Čištění bez námahySmést pryč Extra prostory  /  Sekce přestávky  /   Všechny záhlaví  /  Textová pole  /  Odkazy  /  Další nástroje pro odstraňování najdete v naší skupině pro odstranění

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  /  Objevte více v naší skupině Insert

???? Přesné výběry: Označte konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  /  Procházejte se snadno pomocí naší Select Group

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje ...

Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.

Více       Stažení zdarma      Nákup
 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Good information! It assisted me in extracting links from an html file I had opened in Word. Refer to <a href="https://cookieclicker2.io">cookie clicker</a> is idea new.
This comment was minimized by the moderator on the site
How can we export word file hyperlinks and it's Text display to an excel file ? 
This comment was minimized by the moderator on the site
Impresionante! Millón de gracias.Me has 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!!!

This comment was minimized by the moderator on the site
Thank you so much! This was exactly what I was looking for!
This comment was minimized by the moderator on the site
I am amazed. That's gold. You saved me a ton of work.
This comment was minimized by the moderator on the site
Height of Legendary, thanks a million
This comment was minimized by the moderator on the site
Can I get the same script to run in outlook?
This comment was minimized by the moderator on the site
This is great stuff! Many thanks. What changes do I need to make to GetAllHyperlinks() for the following case? -- original document contains both normal text and links -- result wanted: same document but each link is followed by a space and the URL Thanks
This comment was minimized by the moderator on the site
Excellent! It helped me extract some links from an html file that I opened with Word (Excel was discarding some links). Here is the modified code so that a csv file could be built that could be further used. [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 /> 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.InsertAfter (oLink.TextToDisplay) rng.InsertAfter (", ") rng.InsertAfter (oLink.Address) rng.InsertAfter (vbCrLf) Next docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub[/quote]
This comment was minimized by the moderator on the site
This code works fine to me. The two on examples in the article description don't. Thanks a lot and my best regards.
This comment was minimized by the moderator on the site
Thank you very much for this script. This helped me to extract 5K links. Thank you very much.
This comment was minimized by the moderator on the site
Thank you. Just what I needed to parse a document.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations