Den här artikeln kommer att visa dig två snabba sätt att batchextrahera alla hyperlänkar från ditt Word-dokument för att följa länkarna.
Då och då kan det finnas hundratals hyperlänkar spridda över ett Word-dokument. I det här scenariot, om du behöver följa en specifik länk, måste du navigera genom dokumentet för att hitta det först, vilket kan vara så jobbigt i en lång fil.
Men om du exporterar dem till ett nytt dokument kan saker och ting bli mycket enklare. Här är våra lösningar.
Metod 1: Använd funktionen "Sök"
- Klicka först på fliken "Hem" och sedan på pilspetsknappen nära kommandot "Sök".
- Välj "Avancerat sökning" på rullgardinsmenyn för att öppna dialogrutan "Sök och ersätt".
- Klicka sedan på "Mer"-knappen och klicka på "Formatera".
- Välj "Stil" för att öppna rutan "Hitta stil".
- Välj "Hyperlänk" och klicka på "OK".
- Klicka sedan på "Sök i" och välj "Huvuddokument".
Du kan se alla hyperlänkar i urvalet nu. Men om du kopierar och klistrar in dem i ett nytt dokument kommer du att upptäcka att länkar tappar formateringen och blir ren text.
För närvarande har Microsoft ingen lösning på detta problem. Så du måste konvertera vanlig text tillbaka till hyperlänkar igen manuellt. Här är vår tidigare artikel som listar olika sätt du kan följa: 5 sätt att konvertera URL-texter till hyperlänkar i ditt Word-dokument
På grund av denna brist rekommenderar vi dig ett annat sätt, även utfört med hjälp av "Hitta"-funktionen. Se avsnittet "Hitta alla hyperlänkar i ett dokument" i den här artikeln: Hur du hittar, ändrar och tar bort hyperlänkar i ditt Word-dokument
När du har hittat alla hyperlänkar utför du "Kopiera" och "Klistra in" för att exportera dem.
Metod 2: Kör VBA-koder
- Först och främst, tryck på "Alt + F11" för att öppna VBA-editorn.
- Klicka sedan på "Infoga" och välj "Modul" för att skapa en ny under projektet "Normal".
- Dubbelklicka sedan på modulen för att öppna redigeringsutrymmet och klistra in nedanstående koder där:
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
- Slutligen klickar du på "Kör" -knappen.
Nu kommer ett nytt dokument att öppnas och alla hyperlänkar är klickbara där.
Dessutom, om det finns ett parti filer som behöver bearbetas, kan du köra detta makro nedan:
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
Kom ihåg att först ordna alla dokument i en mapp. Kör sedan makrot ovan för att få en inmatningsruta. Ange mappsökvägen och klicka på "OK".
Alla hyperlänkar är nu tillgängliga i ett nytt dokument.
Redo för Word-fel
Oavsett hur ovilliga vi är att stöta på ett Word-fel. Det är oundvikligt att drabbas av detta då och då. Vårt förslag är när Word kollapsar, att välja en skicklig Ordreparation verktyg. Lämna bara allt till proffsen.
Författarintroduktion:
Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive xls skada och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com