2 Mabilis na Mga Paraan upang Batch Extract Lahat ng mga Hyperlink mula sa Iyong Dokumento ng Salita

Ipamahagi ngayon:

Ipapakita sa iyo ng artikulong ito ang 2 mabilis na paraan upang makuha ng Batch ang lahat ng mga hyperlink mula sa iyong dokumento sa Word, upang masundan ang mga link.

Sa tuwing madalas, maaaring may daan-daang mga hyperlink na nagkakalat sa buong isang dokumento ng Word. Sa senaryong ito, kung kailangan mong sundin ang isang tukoy na link, dapat kang mag-navigate sa dokumento upang hanapin ito muna, na maaaring maging isang sakit sa isang mahabang file.

Gayunpaman, kung i-export mo ang mga ito sa isang bagong dokumento, ang mga bagay ay maaaring maging mas madali. Narito ang aming mga solusyon.

Paraan 1: Gumamit ng Tampok na "Maghanap"

  1. Una, i-click ang tab na "Home" pagkatapos ay ang arrowhead button na malapit sa utos na "Hanapin".
  2. Sa drop-down na menu piliin ang "Advanced Find" upang buksan ang dialog box na "Hanapin at Palitan".I-click ang "Home" -> I-click ang "Hanapin" -> Piliin ang "Advanced Find"
  3. Susunod na pag-click sa pindutan ng "Higit Pa" at i-click ang "Format".
  4. Piliin ang "Estilo" upang buksan ang kahon na "Maghanap ng Estilo".
  5. Piliin ang "Hyperlink" at i-click ang "OK".I-click ang "Format" -> Piliin ang "Estilo" -> Piliin ang "Hyperlink" -> I-click ang "OK"
  6. Pagkatapos ay i-click ang "Maghanap Sa" at piliin ang "Pangunahing Dokumento".I-click ang "Find In" -> Piliin ang "Pangunahing Dokumento"

Maaari mong makita ang lahat ng mga hyperlink sa pagpipilian ngayon. Gayunpaman, kung kokopyahin at idikit mo ang mga ito sa isang bagong dokumento, mahahanap mo ang mga link na mawawala ang kanilang pag-format at maging payak na mga teksto.Nawala ang istilo ng mga hyperlink

Sa kasalukuyan, walang solusyon ang Microsoft para sa isyung ito. Kaya kailangan mong i-convert ang mga simpleng teksto pabalik sa mga hyperlink muli nang manu-mano. Narito ang aming naunang artikulo, na naglilista ng iba't ibang mga paraan na maaari mong sundin: 5 Mga Paraan upang mai-convert ang Mga teksto ng URL sa mga Hyperlink sa Iyong Dokumentong Word

Dahil sa pagkukulang na ito, inirerekumenda namin sa iyo ang isa pang paraan, na gumanap din sa tulong ng tampok na "Hanapin". Mangyaring mag-refer sa seksyong "Hanapin ang Lahat ng Mga Hyperlink sa isang Dokumento" sa artikulong ito: Paano Makahanap, Baguhin at Tanggalin ang mga Hyperlink sa Iyong Dokumentong Word

Matapos hanapin ang lahat ng mga hyperlink, gagawin mo ang gawaing "Kopyahin" at "I-paste" upang mai-export ang mga ito.

Paraan 2: Patakbuhin ang Mga Code ng VBA

  1. Una sa lahat, pindutin ang "Alt + F11" upang buksan ang VBA editor.
  2. Susunod na pag-click sa "Ipasok" at piliin ang "Modyul" upang lumikha ng bago sa ilalim ng proyektong "Normal".I-click ang "Normal" -> I-click ang "Ipasok" -> I-click ang "Modyul"
  3. Pagkatapos i-double click ang module upang buksan ang espasyo sa pag-edit at i-paste ang mga bellowing code doon:
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. Panghuli, i-click ang pindutang "Run".I-paste ang Mga Code-> I-click ang "Run"

Ngayon ay magkakaroon ng isang bagong dokumento na bukas at lahat ng mga hyperlink ay mai-click doon.

Bukod, kung sakaling may isang pangkat ng mga file na kailangang maproseso, maaari mong patakbuhin ang macro na ito sa ibaba:

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

Tandaan na ayusin muna ang lahat ng mga dokumento sa isang folder. Pagkatapos ay patakbuhin ang nasa itaas na macro upang makakuha ng isang kahon ng pag-input. Ipasok ang folder path at i-click ang "OK".Ipasok ang Folder Path-> I-click ang "OK"

Ang lahat ng mga hyperlink ay magagamit na ngayon sa isang bagong dokumento.

Handa para sa Mga Error sa Salita

Hindi mahalaga kung gaano tayo nag-aatubili upang makagawa ng isang error sa Word. Hindi maiiwasang magdusa ito paminsan-minsan. Ang aming mungkahi ay kapag bumagsak ang Word, pumipili ng isang dalubhasa Pag-aayos ng salita kasangkapan Ipaubaya na lang sa propesyonal ang lahat.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang xls pinsala at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa

Ipamahagi ngayon:

Mga komento ay sarado.