2 brza načina za grupno izdvajanje svih hiperveza iz vašeg Word dokumenta

Ovaj članak će vam pokazati 2 brza načina za grupno izdvajanje svih hiperveza iz vašeg Word dokumenta, tako da pratite veze.

Svako toliko može postojati stotine hiperveza koje se raštrkaju po Word dokumentu. U ovom scenariju, ako trebate slijediti određenu vezu, morate se kretati kroz dokument da biste ga prvo pronašli, što može biti velika muka u dugoj datoteci.

Međutim, ako ih izvezete u novi dokument, stvari mogu postati mnogo lakše. Evo naših rješenja.

Metoda 1: Iskoristite funkciju „Pronađi“.

1. Prvo, kliknite na karticu "Početna", a zatim na dugme sa strelicom pored komande "Pronađi".
2. Na padajućem izborniku odaberite “Napredno traženje” da otvorite dijaloški okvir “Pronađi i zamijeni”.
3. Zatim kliknite na dugme “Više” i kliknite na “Format”.
4. Odaberite "Stil" da otvorite okvir "Pronađi stil".
5. Odaberite “Hyperlink” i kliknite “OK”.
6. Zatim kliknite na “Pronađi u” i odaberite “Glavni dokument”.

Sada možete vidjeti sve hiperveze u izboru. Međutim, ako ih kopirate i zalijepite u novi dokument, vidjet ćete da veze gube format i postaju običan tekst.

Microsoft trenutno nema rješenje za ovaj problem. Dakle, morate ponovo ručno konvertovati običan tekst nazad u hiperveze. Evo našeg ranijeg članka, koji navodi različite načine na koje možete slijediti: 5 načina da pretvorite URL tekstove u hiperveze u vašem Word dokumentu

Zbog ovog nedostatka preporučujemo vam drugi način, koji se također izvodi uz pomoć funkcije „Pronađi“. Pogledajte odjeljak "Pronađi sve hiperveze u dokumentu" u ovom članku: Kako pronaći, promijeniti i izbrisati hiperveze u Word dokumentu

Nakon što pronađete sve hiperveze, izvršite rad "Kopiraj" i "Zalijepi" da ih izvezete.

Metod 2: Pokrenite VBA kodove

1. Prvo i najvažnije, pritisnite "Alt+F11" da biste otvorili VBA editor.
2. Zatim kliknite na “Insert” i odaberite “Module” da kreirate novi u okviru “Normal” projekta.
3. Zatim dvaput kliknite na modul da otvorite prostor za uređivanje i tamo zalijepite sljedeće kodove:

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. Na kraju, kliknite na dugme "Pokreni".

Sada će biti otvoren novi dokument i sve hiperveze se tamo mogu kliknuti.

Osim toga, u slučaju da postoji grupa datoteka za obradu, možete pokrenuti ovaj makro u nastavku:

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

Ne zaboravite da prvo rasporedite sve dokumente u jednu fasciklu. Zatim pokrenite gornji makro da biste dobili okvir za unos. Unesite putanju fascikle i kliknite na “OK”.

Sve hiperveze su sada dostupne u novom dokumentu.

Spreman za Word greške

Bez obzira koliko nerado naiđemo na grešku u Wordu. Neminovno je patiti od toga s vremena na vrijeme. Naš prijedlog je kada se Word sruši, odabir stručnjaka Popravak riječi alat. Samo prepustite sve profesionalcima.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls šteta i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com