2 ātrie veidi, kā sērijveidā iegūt visas hipersaites no jūsu Word dokumenta

Šis raksts parādīs 2 ātrus veidus, kā pakotnē iegūt visas hipersaites no jūsu Word dokumenta, lai sekotu saitēm.

Ik reizi tik bieži visā Word dokumentā var būt simtiem hipersaites. Šajā scenārijā, ja jums ir nepieciešams sekot noteiktai saitei, jums ir jāpārvietojas pa dokumentu, lai to vispirms atrastu, kas var būt šādas sāpes garā failā.

Tomēr, ja tos eksportējat uz jaunu dokumentu, lietas var kļūt daudz vienkāršākas. Šeit ir mūsu risinājumi.

1. metode: izmantojiet funkciju “Atrast”

1. Pirmkārt, noklikšķiniet uz cilnes “Sākums”, pēc tam uz bultiņas pogas blakus komandai “Atrast”.
2. Nolaižamajā izvēlnē izvēlieties “Advanced Find”, lai atvērtu dialoglodziņu “Find and Replace”.
3. Pēc tam noklikšķiniet uz pogas “Vairāk” un noklikšķiniet uz “Formatēt”.
4. Izvēlieties “Stils”, lai atvērtu lodziņu “Atrast stilu”.
5. Atlasiet “Hipersaite” un noklikšķiniet uz “Labi”.
6. Pēc tam noklikšķiniet uz “Atrast” un izvēlieties “Galvenais dokuments”.

Tagad atlasē var redzēt visas hipersaites. Tomēr, ja tos nokopējat un ielīmējat jaunā dokumentā, saites zaudē formatējumu un kļūst par vienkāršiem tekstiem.

Pašlaik Microsoft nav šīs problēmas risinājuma. Tāpēc vienkāršie teksti atkal jāpārvērš hipersaitēs manuāli. Šis ir mūsu agrākais raksts, kurā uzskaitīti dažādi veidi, kā jūs varat sekot: 5 veidi, kā konvertēt URL tekstus uz hipersaitēm jūsu Word dokumentā

Šī trūkuma dēļ mēs iesakām izmantot citu veidu, kas tiek veikts arī ar funkcijas “Atrast” palīdzību. Lūdzu, skatiet šī raksta sadaļu “Atrast visas hipersaites dokumentā”: Kā atrast, mainīt un izdzēst hipersaites Word dokumentā

Pēc visu hipersaišu atrašanas jūs veicat kopēšanas un ielīmēšanas darbus, lai tās eksportētu.

2. metode: palaidiet VBA kodus

1. Pirmkārt un galvenokārt, nospiediet taustiņu kombināciju “Alt+F11”, lai atvērtu VBA redaktoru.
2. Pēc tam noklikšķiniet uz “Insert” un izvēlieties “Module”, lai projektā “Normal” izveidotu jaunu.
3. Pēc tam veiciet dubultklikšķi uz moduļa, lai atvērtu rediģēšanas vietu, un ielīmējiet tur saspringtos 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. Visbeidzot, noklikšķiniet uz Palaist.

Tagad būs atvērts jauns dokuments, un tur varēs noklikšķināt uz visām hipersaitēm.

Turklāt, ja ir jāapstrādā failu pakete, varat palaist šo makro zemāk:

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

Atcerieties vispirms sakārtot visus dokumentus vienā mapē. Pēc tam palaidiet iepriekš minēto makro, lai iegūtu ievades lodziņu. Ievadiet mapes ceļu un noklikšķiniet uz “OK”.

Visas hipersaites tagad ir pieejamas jaunā dokumentā.

Gatavs Word kļūdām

Neatkarīgi no tā, cik negribīgi mēs saskaramies ar Word kļūdu. Tas ir neizbēgami laiku pa laikam no tā cieš. Mūsu ieteikums ir tad, kad Word sabrūk, izvēloties prasmīgu Vārdu labošana rīks. Vienkārši atstājiet visu profesionāļa ziņā.

Autora ievads:

Vera Čena ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp xls bojājums un pdf programmatūras produktu labošana. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar