2 raske måter å pakke ut alle hyperkoblinger fra Word-dokumentet

Denne artikkelen skal vise deg 2 raske måter å pakke ut alle hyperkoblinger fra Word-dokumentet, for å følge koblingene.

Hver så ofte kan det være hundrevis av hyperkoblinger spredt over et Word-dokument. I dette scenariet, hvis du trenger å følge en spesifikk lenke, må du navigere gjennom dokumentet for å finne det først, noe som kan være så vondt i en lang fil.

Men hvis du eksporterer dem til et nytt dokument, kan ting bli mye enklere. Her er våre løsninger.

Metode 1: Bruk "Finn"-funksjonen

1. Først klikker du på "Hjem"-fanen og deretter på pilspissknappen nær "Finn"-kommandoen.
2. På rullegardinmenyen velger du "Avansert søk" for å åpne dialogboksen "Finn og erstatt".
3. Klikk deretter på "Mer"-knappen og klikk på "Formater".
4. Velg "Style" for å åpne "Finn stil"-boksen.
5. Velg "Hyperkobling" og klikk "OK".
6. Klikk deretter "Finn inn" og velg "Hoveddokument".

Du kan se alle hyperkoblinger i utvalget nå. Men hvis du kopierer og limer dem inn i et nytt dokument, vil du finne at lenker mister formateringen og blir ren tekst.

For øyeblikket har ikke Microsoft en løsning på dette problemet. Så du må konvertere ren tekst tilbake til hyperkoblinger igjen manuelt. Her er vår tidligere artikkel, som viser ulike måter du kan følge: 5 måter å konvertere URL-tekster til hyperkoblinger i Word-dokumentet ditt

På grunn av denne mangelen anbefaler vi deg en annen måte, også utført ved hjelp av "Finn"-funksjonen. Vennligst se "Finn alle hyperkoblinger i et dokument" i denne artikkelen: Hvordan finne, endre og slette hyperkoblinger i Word-dokumentet

Etter å ha funnet alle hyperkoblinger, gjør du "Kopier" og "Lim inn" for å eksportere dem.

Metode 2: Kjør VBA-koder

1. Først og fremst, trykk «Alt+F11» for å åpne VBA-editoren.
2. Klikk deretter på "Sett inn" og velg "Modul" for å lage en ny under "Normal" -prosjektet.
3. Dobbeltklikk deretter modulen for å åpne redigeringsområdet og lim inn kodene nedenfor der:

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. Til slutt klikker du på "Kjør"-knappen.

Nå vil det være et nytt dokument åpent og alle hyperlenker er klikkbare der.

Dessuten, i tilfelle det er en gruppe filer som må behandles, kan du kjøre denne makroen nedenfor:

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

Husk å ordne alle dokumenter i én mappe først. Kjør deretter makroen ovenfor for å få en inndataboks. Skriv inn mappebanen og klikk "OK".

Alle hyperkoblinger er nå tilgjengelige i et nytt dokument.

Klar for Word-feil

Uansett hvor motvillige vi er til å støte på en Word-feil. Det er uunngåelig å lide dette fra tid til annen. Vårt forslag er når Word kollapser, å velge en dyktig Ordreparasjon verktøy. Bare overlat alt til profesjonelle.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls skade og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med