2 hurtige måder at batch-udpakke alle hyperlinks fra dit Word-dokument

Denne artikel viser dig to hurtige måder at batch-udpakke alle hyperlinks fra dit Word-dokument for at følge linkene.

Hvert så ofte kan der være hundredvis af hyperlinks, der spredes over et Word-dokument. I dette scenarie, hvis du har brug for at følge et bestemt link, skal du navigere gennem dokumentet for at finde det først, hvilket kan være sådan en smerte i en lang fil.

Men hvis du eksporterer dem til et nyt dokument, kan tingene blive meget lettere. Her er vores løsninger.

Metode 1: Brug funktionen "Find"

1. For det første skal du klikke på "Hjem" -fanen og derefter på piletasten nær kommandoen "Find".
2. Vælg "Avanceret søgning" i rullemenuen for at åbne dialogboksen "Find og erstat".
3. Klik derefter på knappen "Mere" og klik på "Format".
4. Vælg "Style" for at åbne "Find Style" -boksen.
5. Vælg "Hyperlink", og klik på "OK".
6. Klik derefter på "Find i" og vælg "Hoveddokument".

Du kan se alle hyperlinks i udvalget nu. Men hvis du kopierer og indsætter dem i et nyt dokument, vil du finde, at links mister deres formatering og bliver almindelige tekster.

I øjeblikket har Microsoft ikke en løsning på dette problem. Så du skal konvertere almindelige tekster tilbage til hyperlinks manuelt igen. Her er vores tidligere artikel, der viser forskellige måder, du kan følge: 5 måder at konvertere URL-tekster til hyperlinks i dit Word-dokument

På grund af denne mangel anbefaler vi dig en anden måde, også udført ved hjælp af funktionen "Find". Se afsnittet "Find alle hyperlinks i et dokument" i denne artikel: Sådan finder du, ændrer og sletter hyperlinks i dit Word-dokument

Når du har fundet alle hyperlinks, gør du "Kopier" og "Indsæt" arbejdet for at eksportere dem.

Metode 2: Kør VBA-koder

1. Først og fremmest skal du trykke på “Alt+F11” for at åbne VBA-editoren.
2. Klik derefter på "Indsæt", og vælg "Modul" for at oprette et nyt under "Normal" -projektet.
3. Dobbeltklik derefter på modulet for at åbne redigeringsområdet og indsæt de bølgende koder 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 sidst skal du klikke på “Kør” -knappen.

Nu vil der være et nyt dokument åbent, og alle hyperlinks er klikbare der.

Derudover kan du køre denne makro nedenfor, hvis der er behov for et parti af filer, der skal behandles:

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 at arrangere alle dokumenter i en mappe først. Kør derefter ovenstående makro for at få et inputfelt. Indtast mappestien, og klik på “OK”.

Alle hyperlinks er nu tilgængelige i et nyt dokument.

Klar til ordfejl

Uanset hvor tilbageholdende vi er med at løbe ind i en Word-fejl. Det er uundgåeligt at lide dette fra tid til anden. Vores forslag er, når Word kollapser og vælger en dygtig Ordreparation værktøj. Overlad alt til den professionelle.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder xls skader og pdf produkter til reparation af software. For mere information besøg www.datanumen.com