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 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 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.
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í.
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.
2. V rozbalovacím dialogovém okně 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 adresu hypertextového odkazu |
Ukázka: Zkopírujte hypertextový odkaz
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. |
Relativní č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!
🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah / Přepsat text / Shrnout dokumenty / Vyžádejte si informace na základě dokumentu, vše ve Wordu
📘 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 / 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ámahy: Smést pryč Extra prostory / Sekce přestávky / Všechny záhlaví / Textová pole / Odkazy / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...
➕ 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 Vložit skupinu...
???? Přesné výběry: Přesně konkrétní stránky / Tabulky / Tvary / nadpisové odstavce / Vylepšete navigaci pomocí vice Vyberte funkce...
⭐ 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...