Note: The other languages of the website are Google-translated. Back to English

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ž 100 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:


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (16)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Omg to je legendární věc. Tak užitečné. Díky moc! :-)
Tento komentář byl moderátorem webu minimalizován
wow, je skvělý. Děkuji mnohokrát
Tento komentář byl moderátorem webu minimalizován
je to výzva "Chyba kompilace: Chyba syntaxe" Prosím, pomozte mi, musím udělat hodně práce s tímto .Odpovězte co nejdříve
Tento komentář byl moderátorem webu minimalizován
Vskutku! O rok později mám podobné problémy a jsem úplně otrávený vaší úžasnou pomocí!! Bůh ti žehnej!!
Tento komentář byl moderátorem webu minimalizován
Děkuji. Přesně to, co jsem potřeboval k analýze dokumentu.
Tento komentář byl moderátorem webu minimalizován
Vynikající! Pomohlo mi to extrahovat některé odkazy ze souboru html, který jsem otevřel ve Wordu (Excel některé odkazy zahazoval). Zde je upravený kód, aby bylo možné sestavit soubor csv, který lze dále používat. [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 Every oLink In docCurrent.Hyperlinks Set rng = docNew.Range rng.InsertAfter ( oLink.TextToDisplay) rng.InsertAfter (", ") rng.InsertAfter (oLink.Address) rng.InsertAfter (vbCrLf) Další docNew.Activate Application.ScreenUpdating = True Application.ScreenRefresh End Sub[/quote]
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát za tento skript. To mi pomohlo extrahovat 5K odkazů. Děkuji mnohokrát.
Tento komentář byl moderátorem webu minimalizován
Tento kód mi funguje dobře. Dva na příkladech v popisu článku ne. Děkuji mnohokrát a jsem s pozdravem.
Tento komentář byl moderátorem webu minimalizován
To je skvělá věc! Mnohokrát děkuji. Jaké změny musím provést v GetAllHyperlinks() pro následující případ? -- původní dokument obsahuje normální text i odkazy -- požadovaný výsledek: stejný dokument, ale za každým odkazem následuje mezera a URL Díky
Tento komentář byl moderátorem webu minimalizován
Mohu získat stejný skript ke spuštění v aplikaci Outlook?
Tento komentář byl moderátorem webu minimalizován
Height of Legendary, díky za milion
Tento komentář byl moderátorem webu minimalizován
Jsem ohromen. To je zlato. Ušetřil jsi mi spoustu práce.
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát! Přesně tohle jsem hledal!
Tento komentář byl moderátorem webu minimalizován
Působivé! Millón de gracias.Me has acercado a la solución hodněí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!!!

Tento komentář byl moderátorem webu minimalizován
Jak můžeme exportovat hypertextové odkazy souboru Word a jeho zobrazení textu do souboru aplikace Excel? 
Tento komentář byl moderátorem webu minimalizován
Dobrá informace! Pomohlo mi to při extrahování odkazů ze souboru html, který jsem otevřel ve Wordu. Podívejte se na cookie clicker je nový nápad.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění