2 rýchle spôsoby dávkovania, ako extrahovať všetky hypertextové odkazy z dokumentu Word

Tento článok vám predstaví 2 rýchle spôsoby, ako hromadne extrahovať všetky hypertextové odkazy z vášho dokumentu Word, aby ste sa riadili týmito odkazmi.

Vždy tak často môžu byť stovky hypertextových odkazov roztrúsených po celom dokumente Word. V tomto scenári, ak potrebujete nasledovať konkrétny odkaz, musíte sa najskôr pohybovať v dokumente, aby ste ho našli, čo môže byť v dlhom súbore také nepríjemné.

Ak ich však exportujete do nového dokumentu, môže to byť oveľa jednoduchšie. Tu sú naše riešenia.

Metóda 1: Využite funkciu „Nájsť“

1. Najskôr kliknite na kartu „Domov“ a potom na šípku vedľa príkazu „Nájsť“.
2. V rozbaľovacej ponuke zvoľte možnosť „Rozšírené hľadanie“ a otvorte dialógové okno „Nájsť a nahradiť“.
3. Ďalej kliknite na tlačidlo „Viac“ a potom na „Formátovať“.
4. Vyberte možnosť „Štýl“ a otvorte pole „Nájsť štýl“.
5. Vyberte možnosť Hypertextový odkaz a kliknite na tlačidlo OK.
6. Potom kliknite na „Nájsť v“ a vyberte „Hlavný dokument“.

Teraz môžete vidieť všetky hypertextové odkazy vo výbere. Ak ich však skopírujete a prilepíte do nového dokumentu, zistíte, že odkazy strácajú formátovanie a stávajú sa z nich obyčajné texty.

Spoločnosť Microsoft v súčasnosti nemá riešenie tohto problému. Takže musíte obyčajné texty previesť späť na hypertextové odkazy znova manuálne. Tu je náš predchádzajúci článok so zoznamom rôznych spôsobov, ako sa môžete riadiť: 5 spôsobov, ako previesť texty URL na hypertextové odkazy v dokumente Word

Z dôvodu tohto nedostatku vám odporúčame iný spôsob, ktorý sa vykonáva aj pomocou funkcie „Nájsť“. Prečítajte si v tomto článku časť „Nájsť všetky hypertextové odkazy v dokumente“: Ako nájsť, zmeniť a odstrániť hypertextové odkazy v dokumente Word

Po vyhľadaní všetkých hypertextových odkazov ich exportujete vykonaním práce „Kopírovať“ a „Prilepiť“.

Metóda 2: Spustenie kódov VBA

1. Najprv a predovšetkým stlačte klávesy „Alt + F11“ a otvorte editor VBA.
2. Ďalej kliknite na „Vložiť“ a zvoľte „Modul“, aby ste vytvorili nový v rámci projektu „Normálny“.
3. Potom dvakrát kliknite na modul, aby ste otvorili priestor na úpravy, a vložte tam nasledujúce 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. Nakoniec kliknite na tlačidlo „Spustiť“.

Teraz bude otvorený nový dokument a budú sa dať kliknúť na všetky hypertextové odkazy.

Okrem toho, v prípade, že je potrebné spracovať dávku súborov, môžete toto makro spustiť nižšie:

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

Nezabudnite najskôr usporiadať všetky dokumenty do jedného priečinka. Potom spustením vyššie uvedeného makra získate vstupné pole. Zadajte cestu k priečinku a kliknite na tlačidlo „OK“.

Všetky hypertextové odkazy sú teraz k dispozícii v novom dokumente.

Pripravené na chyby v slove

Bez ohľadu na to, ako veľmi sa zdráhame naraziť na chybu Wordu. Je nevyhnutné z času na čas tým trpieť. Náš návrh je, keď sa Word zrúti a vyberie si zdatného Oprava slova nástroj. Nechajte všetko na profesionála.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xls poškodenie a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S