2 greiti būdai, kaip grupiniu būdu ištraukti visus hipersaitus iš „Word“ dokumento

Šiame straipsnyje bus parodyti 2 greiti būdai, kaip paketiniu būdu ištraukti visus hipersaitus iš „Word“ dokumento, kad būtų galima sekti nuorodas.

Kartkartėmis visame „Word“ dokumente gali būti šimtai hipersaitų. Pagal šį scenarijų, jei reikia sekti konkrečią nuorodą, pirmiausia turite naršyti dokumentą, kad jį rastumėte, o tai gali būti labai skausminga ilgame faile.

Tačiau jei eksportuosite juos į naują dokumentą, viskas gali pasidaryti daug lengviau. Štai mūsų sprendimai.

1 būdas: naudokite funkciją „Rasti“.

1. Pirmiausia spustelėkite skirtuką „Pagrindinis“, tada spustelėkite rodyklės mygtuką šalia komandos „Rasti“.
2. Išskleidžiamajame meniu pasirinkite „Išplėstinė paieška“, kad atidarytumėte dialogo langą „Rasti ir pakeisti“.
3. Tada spustelėkite mygtuką „Daugiau“ ir spustelėkite „Formatuoti“.
4. Pasirinkite „Stilius“, kad atidarytumėte langelį „Rasti stilių“.
5. Pasirinkite „Hipersaitas“ ir spustelėkite „Gerai“.
6. Tada spustelėkite „Rasti“ ir pasirinkite „Pagrindinis dokumentas“.

Dabar galite matyti visus pasirinktus hipersaitus. Tačiau jei nukopijuosite ir įklijuosite juos į naują dokumentą, pamatysite, kad nuorodos praras formatavimą ir taps paprastais tekstais.

Šiuo metu „Microsoft“ neturi šios problemos sprendimo. Taigi jūs turite vėl rankiniu būdu konvertuoti paprastus tekstus atgal į hipersaitus. Štai mūsų ankstesnis straipsnis, kuriame pateikiami įvairūs būdai, kuriais galite vadovautis: 5 būdai, kaip konvertuoti URL tekstus į hipersaitus jūsų „Word“ dokumente

Dėl šio trūkumo rekomenduojame kitą būdą, taip pat atliekamą naudojant funkciją „Rasti“. Žr. šio straipsnio skyrių „Rasti visas hipersaitus dokumente“: Kaip rasti, pakeisti ir ištrinti hipersaitus „Word“ dokumente

Suradę visus hipersaitus, atlikite „Kopijuoti“ ir „Įklijuoti“ darbus, kad juos eksportuotumėte.

2 būdas: paleiskite VBA kodus

1. Visų pirma, paspauskite „Alt + F11“, kad atidarytumėte VBA redaktorių.
2. Tada spustelėkite „Įterpti“ ir pasirinkite „Modulis“, kad sukurtumėte naują projekte „Įprastas“.
3. Tada dukart spustelėkite modulį, kad atidarytumėte redagavimo erdvę, ir įklijuokite ten nurodytus kodus:

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. Galiausiai spustelėkite mygtuką „Vykdyti“.

Dabar bus atidarytas naujas dokumentas ir ten galima spustelėti visus hipersaitus.

Be to, jei reikia apdoroti failų paketą, galite paleisti šią makrokomandą:

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

Nepamirškite visų dokumentų pirmiausia sudėti į vieną aplanką. Tada paleiskite aukščiau pateiktą makrokomandą, kad gautumėte įvesties laukelį. Įveskite aplanko kelią ir spustelėkite „Gerai“.

Visi hipersaitai dabar pasiekiami naujame dokumente.

Pasiruošę „Word“ klaidoms

Kad ir kaip nenorėtume patekti į „Word“ klaidą. Kartkartėmis tai neišvengiamai kentėti. Mūsų pasiūlymas yra, kai Word žlunga, pasirenkant profesionalą Žodžių taisymas įrankis. Tiesiog palik viską profesionalams.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls žalą bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com