2 moduri rapide de a extrage toate hyperlinkurile din documentul Word

Acest articol vă va arăta 2 moduri rapide de a extrage în lot toate hyperlinkurile din documentul Word, astfel încât să urmați legăturile.

Din când în când, pot exista sute de hyperlinkuri împrăștiate peste tot într-un document Word. În acest scenariu, dacă trebuie să urmați un anumit link, trebuie să navigați prin document pentru a-l găsi mai întâi, ceea ce poate fi atât de dificil într-un fișier lung.

Cu toate acestea, dacă le exportați într-un document nou, lucrurile pot deveni mult mai ușoare. Iată soluțiile noastre.

Metoda 1: Utilizați funcția „Găsiți”.

1. În primul rând, faceți clic pe fila „Acasă”, apoi pe butonul din vârful săgeții de lângă comanda „Găsiți”.
2. În meniul derulant, alegeți „Căutare avansată” pentru a deschide caseta de dialog „Găsiți și înlocuiți”.
3. Apoi faceți clic pe butonul „Mai multe” și faceți clic pe „Format”.
4. Alegeți „Stil” pentru a deschide caseta „Găsiți stil”.
5. Selectați „Hyperlink” și faceți clic pe „OK”.
6. Apoi faceți clic pe „Find In” și alegeți „Main Document”.

Puteți vedea acum toate hyperlinkurile în selecție. Cu toate acestea, dacă le copiați și lipiți într-un document nou, veți descoperi că linkurile își pierd formatarea și devin texte simple.

În prezent, Microsoft nu are o soluție pentru această problemă. Deci, trebuie să convertiți manual textele simple înapoi în hyperlinkuri. Iată articolul nostru anterior, care enumeră diferite moduri pe care le puteți urma: 5 moduri de a converti textele URL în hyperlinkuri în documentul Word

Din cauza acestui neajuns, vă recomandăm o altă modalitate, realizată tot cu ajutorul funcției „Găsiți”. Consultați secțiunea „Găsiți toate hyperlinkurile într-un document” din acest articol: Cum să găsiți, să modificați și să ștergeți hyperlinkurile din documentul Word

După ce găsiți toate hyperlinkurile, faceți lucrările „Copiere” și „Lipire” pentru a le exporta.

Metoda 2: Rulați coduri VBA

1. În primul rând, apăsați „Alt+F11” pentru a deschide editorul VBA.
2. Apoi faceți clic pe „Insert” și alegeți „Modul” pentru a crea unul nou sub proiectul „Normal”.
3. Apoi faceți dublu clic pe modul pentru a deschide spațiul de editare și lipiți codurile de mai jos acolo:

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. În cele din urmă, faceți clic pe butonul „Run”.

Acum va fi deschis un nou document și toate hyperlinkurile pot fi făcute clic acolo.

În plus, în cazul în care este nevoie de procesare a unui lot de fișiere, puteți rula această macrocomandă de mai jos:

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

Nu uitați să aranjați mai întâi toate documentele într-un singur folder. Apoi rulați macrocomanda de mai sus pentru a obține o casetă de introducere. Introduceți calea folderului și faceți clic pe „OK”.

Toate hyperlinkurile sunt acum disponibile într-un document nou.

Gata pentru erori de cuvinte

Indiferent cât de reticenți suntem să ne confruntăm cu o eroare Word. Este inevitabil să suferi asta din când în când. Sugestia noastră este atunci când Word se prăbușește, alegând un expert Reparație Word instrument. Lăsați totul în seama profesioniștilor.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv daune xls și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com