2 mënyra të shpejta për të nxjerrë në grup të gjitha hiperlidhjet nga dokumenti juaj Word

Ky artikull do t'ju tregojë 2 mënyra të shpejta për të nxjerrë në grup të gjitha hiperlidhjet nga dokumenti juaj Word, në mënyrë që të ndiqni lidhjet.

Herë pas here, mund të ketë qindra hiperlidhje që shpërndahen në të gjithë një dokument Word. Në këtë skenar, nëse duhet të ndiqni një lidhje specifike, duhet të lundroni nëpër dokument për ta gjetur atë fillimisht, gjë që mund të jetë kaq e vështirë në një skedar të gjatë.

Megjithatë, nëse i eksportoni ato në një dokument të ri, gjërat mund të bëhen shumë më të lehta. Këtu janë zgjidhjet tona.

Metoda 1: Përdorni funksionin "Gjeni".

  1. Fillimisht, klikoni në skedën "Home" dhe më pas butonin e shigjetës pranë komandës "Gjeni".
  2. Në menynë rënëse zgjidhni "Gjeni i avancuar" për të hapur kutinë e dialogut "Gjej dhe zëvendëso".Klikoni "Home"->Klikoni "Gjeni"->Zgjidhni "Gjeni i avancuar"
  3. Pastaj klikoni në butonin "Më shumë" dhe klikoni "Format".
  4. Zgjidhni "Style" për të hapur kutinë "Gjej stilin".
  5. Zgjidhni "Hyperlink" dhe klikoni "OK".Kliko "Format"->Zgjidh "Stil"->Zgjidh "Hyperlink"->Kliko "OK"
  6. Pastaj klikoni "Gjej" dhe zgjidhni "Dokumenti kryesor".Kliko "Gjeni" -> Zgjidhni "Dokumentin kryesor"

Ju mund t'i shihni të gjitha lidhjet në përzgjedhje tani. Megjithatë, nëse i kopjoni dhe ngjitni në një dokument të ri, do të zbuloni se lidhjet humbasin formatimin e tyre dhe bëhen tekste të thjeshta.Hiperlidhjet humbasin stilin

Aktualisht, Microsoft nuk ka një zgjidhje për këtë çështje. Kështu që ju duhet t'i ktheni tekstet e thjeshta përsëri në hiperlidhje përsëri manualisht. Këtu është artikulli ynë i mëparshëm, duke renditur mënyra të ndryshme që mund të ndiqni: 5 mënyra për të konvertuar tekstet e URL-së në hiperlidhje në dokumentin tuaj Word

Për shkak të kësaj mangësie, ne ju rekomandojmë një mënyrë tjetër, të kryer gjithashtu me ndihmën e veçorisë "Gjeni". Ju lutemi referojuni seksionit "Gjeni të gjitha hiperlidhjet në një dokument" në këtë artikull: Si të gjeni, ndryshoni dhe fshini lidhjet në dokumentin tuaj Word

Pasi të keni gjetur të gjitha lidhjet, kryeni punën "Kopjo" dhe "Ngjit" për t'i eksportuar ato.

Metoda 2: Ekzekutoni kodet VBA

  1. Para së gjithash, shtypni "Alt + F11" për të hapur redaktorin VBA.
  2. Pastaj klikoni "Insert" dhe zgjidhni "Module" për të krijuar një të ri nën projektin "Normal".Kliko "Normale" -> Kliko "Fut" -> Kliko "Moduli"
  3. Pastaj klikoni dy herë modulin për të hapur hapësirën e redaktimit dhe ngjitni kodet e mëposhtme atje:
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
  1. Në fund, klikoni në butonin "Run".Ngjit kodet -> Kliko "Run"

Tani do të hapet një dokument i ri dhe të gjitha lidhjet e hiperlinkut mund të klikohen atje.

Përveç kësaj, në rast se ka një grup skedarësh që duhet të përpunohen, mund të ekzekutoni këtë makro më poshtë:

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

Mos harroni të rregulloni së pari të gjitha dokumentet në një dosje. Pastaj ekzekutoni makronë e mësipërme për të marrë një kuti hyrëse. Vendosni rrugën e dosjes dhe klikoni "OK".Futni rrugën e dosjes -> Kliko "OK"

Të gjitha hiperlidhjet janë tani të disponueshme në një dokument të ri.

Gati për gabime në fjalë

Pavarësisht se sa ngurrues jemi të hasim në një gabim Word. Është e pashmangshme ta vuash këtë herë pas here. Sugjerimi ynë është kur Word shembet, duke zgjedhur një të aftë Riparimi i fjalëve mjet. Thjesht lërini gjithçka tek profesionisti.

Hyrje e autorit:

Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë xls dëmtim pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com

Komentet janë të mbyllura.