2 hitra načina za paketno ekstrahiranje vseh hiperpovezav iz vašega Wordovega dokumenta

Ta članek vam bo pokazal 2 hitra načina za paketno ekstrahiranje vseh hiperpovezav iz vašega Wordovega dokumenta, da boste sledili povezavam.

Vsake toliko časa je lahko na stotine hiperpovezav razpršenih po vsem Wordovem dokumentu. V tem scenariju, če morate slediti določeni povezavi, se morate najprej pomakniti po dokumentu, da jo najdete, kar je lahko velika težava v dolgi datoteki.

Če pa jih izvozite v nov dokument, lahko stvari postanejo veliko lažje. Tukaj so naše rešitve.

1. način: Uporabite funkcijo »Najdi«

1. Najprej kliknite zavihek »Domov« in nato gumb s puščico blizu ukaza »Najdi«.
2. V spustnem meniju izberite »Napredno iskanje«, da odprete pogovorno okno »Najdi in zamenjaj«.
3. Nato kliknite gumb »Več« in kliknite »Oblika«.
4. Izberite »Slog«, da odprete polje »Poišči slog«.
5. Izberite »Hiperpovezava« in kliknite »V redu«.
6. Nato kliknite »Najdi v« in izberite »Glavni dokument«.

Zdaj lahko vidite vse hiperpovezave v izboru. Če pa jih kopirate in prilepite v nov dokument, boste ugotovili, da povezave izgubijo svoje oblikovanje in postanejo navadna besedila.

Microsoft trenutno nima rešitve za to težavo. Tako morate navadna besedila spet ročno pretvoriti nazaj v hiperpovezave. Tu je naš prejšnji članek, ki navaja različne načine, ki jim lahko sledite: 5 načinov za pretvorbo besedil URL v hiperpovezave v vašem Wordovem dokumentu

Zaradi te pomanjkljivosti vam priporočamo drug način, prav tako izveden s pomočjo funkcije »Najdi«. Oglejte si razdelek »Iskanje vseh hiperpovezav v dokumentu« v tem članku: Kako najti, spremeniti in izbrisati hiperpovezave v Wordovem dokumentu

Ko najdete vse hiperpovezave, naredite »Kopiraj« in »Prilepi«, da jih izvozite.

2. način: Zaženite kode VBA

1. Najprej pritisnite »Alt + F11«, da odprete urejevalnik VBA.
2. Nato kliknite »Vstavi« in izberite »Modul«, da ustvarite novega pod projektom »Normal«.
3. Nato dvokliknite modul, da odprete prostor za urejanje in tja prilepite spodnje kode:

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 koncu kliknite gumb »Zaženi«.

Zdaj bo odprt nov dokument in tam bo mogoče klikniti vse hiperpovezave.

Poleg tega lahko v primeru, da je treba obdelati paket datotek, zaženete ta makro spodaj:

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 pozabite najprej urediti vseh dokumentov v eno mapo. Nato zaženite zgornji makro, da dobite polje za vnos. Vnesite pot do mape in kliknite »V redu«.

Vse hiperpovezave so zdaj na voljo v novem dokumentu.

Pripravljen na besedne napake

Ne glede na to, kako neradi naletimo na Wordovo napako. To je neizogibno občasno trpeti. Naš predlog je, ko se Word sesuje, izbrati strokovnjaka Popravilo besed orodje. Prepustite vse profesionalcu.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xls škoda in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com