2 rychlé způsoby, jak dávkově extrahovat všechny hypertextové odkazy z dokumentu Word

Tento článek vám ukáže 2 rychlé způsoby, jak dávkově extrahovat všechny hypertextové odkazy z vašeho dokumentu Word tak, aby sledovaly odkazy.

Vždy tak často mohou existovat stovky hypertextových odkazů rozptýlených po celém dokumentu aplikace Word. V tomto scénáři, pokud potřebujete sledovat konkrétní odkaz, musíte nejprve projít dokumentem, abyste jej našli, což může být v dlouhém souboru taková bolest.

Pokud je však exportujete do nového dokumentu, může to být mnohem jednodušší. Zde jsou naše řešení.

Metoda 1: Využijte funkci „Najít“

1. Nejprve klikněte na záložku „Domů“ a poté na šipku poblíž příkazu „Najít“.
2. V rozevírací nabídce vyberte možnost „Rozšířené hledání“ a otevřete dialogové okno „Najít a nahradit“.
3. Dále klikněte na tlačítko „Více“ a poté na „Formátovat“.
4. Zvolte „Styl“ a otevřete pole „Najít styl“.
5. Vyberte „Hypertextový odkaz“ a klikněte na „OK“.
6. Poté klikněte na „Najít v“ a vyberte „Hlavní dokument“.

Nyní můžete vidět všechny hypertextové odkazy ve výběru. Pokud je však zkopírujete a vložíte do nového dokumentu, zjistíte, že odkazy ztratí formátování a stanou se prostými texty.

Společnost Microsoft aktuálně nemá řešení tohoto problému. Takže musíte převést prosté texty zpět na hypertextové odkazy znovu ručně. Zde je náš dřívější článek, který uvádí různé způsoby, kterými se můžete řídit: 5 způsobů převodu textů URL na hypertextové odkazy v dokumentu Word

Kvůli tomuto nedostatku vám doporučujeme jiný způsob, také provedený pomocí funkce „Najít“. Přečtěte si v tomto článku část „Vyhledat všechny hypertextové odkazy v dokumentu“: Jak najít, změnit a odstranit hypertextové odkazy v dokumentu Word

Po nalezení všech hypertextových odkazů provedete export a export pomocí funkce „Kopírovat“ a „Vložit“.

Metoda 2: Spuštění kódů VBA

1. Nejprve stiskněte klávesy „Alt+F11“ pro otevření editoru VBA.
2. Dále klikněte na „Vložit“ a zvolte „Modul“, abyste vytvořili nový v rámci projektu „Normální“.
3. Poté poklepejte na modul a otevřete editační prostor a vložte tam následující kódy:

Sub ExtractAllhyperlinksInDoc()
  Dim objDoc As Document, objNewDoc As Document
  Dim objHyperlink As Hyperlink
 
  '  Initialization
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
 
  '  Copy hyperlinks and paste them to a new document.
  With objDoc
    For Each objHyperlink In .Hyperlinks
      objHyperlink.Range.Copy
      objNewDoc.Activate
      With Selection
        .Paste
        .InsertParagraph
        .Collapse Direction:=wdCollapseEnd
      End With
    Next objHyperlink
  End With
End Sub

4. Nakonec klikněte na tlačítko „Spustit“.

Nyní bude otevřen nový dokument a lze na něj kliknout na všechny hypertextové odkazy.

Kromě toho můžete v případě, že je potřeba zpracovat dávku souborů, spustit toto makro níže:

Sub ExtractHyperlinksFromMultiDoc()
  Dim objDoc As Document, objNewDoc As Document
  Dim objHyperlink As Hyperlink
  Dim strFile As String, strFolder As String
 
  '  Initialization
  Set objNewDoc = Documents.Add
  strFolder = InputBox("Enter folder path here: ", "Folder path")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
 
  '  Open each file in the folder to extract hyperlinks and past them to a new document.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
 
    With objDoc
      For Each objHyperlink In .Hyperlinks
        objHyperlink.Range.Copy
        objNewDoc.Activate
        With Selection
          .Paste
          .InsertParagraph
          .Collapse Direction:=wdCollapseEnd
        End With
      Next objHyperlink
    End With
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

Nezapomeňte nejprve uspořádat všechny dokumenty do jedné složky. Poté spusťte výše uvedené makro a získáte vstupní pole. Zadejte cestu ke složce a klikněte na „OK“.

Všechny hypertextové odkazy jsou nyní k dispozici v novém dokumentu.

Připraveno pro chyby slov

Bez ohledu na to, jak neochotně narazíme na chybu Wordu. Je nevyhnutelné to občas trpět. Náš návrh je, když se Word zhroutí a vybere si zkušeného Oprava slov nářadí. Nechte vše na profesionála.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xls poškození a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com