2 gyors módszer az összes hiperhivatkozás kötegelt kivonására a Word-dokumentumból

Ez a cikk 2 gyors módszert mutat be az összes hiperhivatkozás kötegelt kivonására a Word-dokumentumból a hivatkozások követése érdekében.

Időnként több száz hiperhivatkozás lehet szétszórva egy Word-dokumentumban. Ebben a forgatókönyvben, ha egy adott hivatkozást kell követnie, először végig kell navigálnia a dokumentumban, hogy megtalálja azt, ami egy hosszú fájl esetén nagy fájdalommal járhat.

Ha azonban exportálja őket egy új dokumentumba, a dolgok sokkal könnyebbé válhatnak. Íme a megoldásaink.

1. módszer: Használja a „Keresés” funkciót

1. Először kattintson a „Kezdőlap” fülre, majd a „Keresés” parancs melletti nyílhegyre.
2. A legördülő menüben válassza a „Speciális keresés” lehetőséget a „Keresés és csere” párbeszédpanel megnyitásához.
3. Ezután kattintson a "Továbbiak" gombra, és kattintson a "Formázás" gombra.
4. Válassza a „Stílus” lehetőséget a „Stílus keresése” ablak megnyitásához.
5. Válassza a „Hiperhivatkozás” lehetőséget, majd kattintson az „OK” gombra.
6. Ezután kattintson a „Keresés” gombra, és válassza a „Fő dokumentum” lehetőséget.

Az összes hiperhivatkozást most láthatja a kijelölésben. Ha azonban átmásolja és beilleszti őket egy új dokumentumba, azt tapasztalhatja, hogy a hivatkozások elvesztik formázásukat, és egyszerű szövegekké válnak.

A Microsoftnak jelenleg nincs megoldása erre a problémára. Tehát az egyszerű szövegeket ismét manuálisan kell visszakonvertálnia hiperhivatkozásokká. Íme korábbi cikkünk, amely különféle követési módokat sorol fel: 5 módszer az URL-szövegek hiperhivatkozásokká alakítására a Word-dokumentumban

E hiányosság miatt javasolunk egy másik módot, amelyet szintén a „Keresés” funkció segítségével hajtunk végre. Kérjük, olvassa el a cikk „Összes hiperhivatkozás keresése egy dokumentumban” című részét: Hiperhivatkozások keresése, módosítása és törlése a Word-dokumentumban

Az összes hiperhivatkozás megtalálása után végezze el a „Másolás” és „Beillesztés” műveletet az exportáláshoz.

2. módszer: Futtassa a VBA kódokat

1. Először is, nyomd meg az „Alt+F11” billentyűkombinációt a VBA szerkesztő megnyitásához.
2. Ezután kattintson a „Beszúrás” gombra, és válassza a „Modul” lehetőséget egy új létrehozásához a „Normál” projekt alatt.
3. Ezután kattintson duplán a modulra a szerkesztési terület megnyitásához, és illessze be oda az alábbi kódokat:

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. Végül kattintson a „Futtatás” gombra.

Most megnyílik egy új dokumentum, és ott minden hivatkozás kattintható.

Ezenkívül, ha egy kötegnyi fájlt kell feldolgozni, futtathatja ezt a makrót:

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 felejtse el először az összes dokumentumot egy mappába rendezni. Ezután futtassa a fenti makrót, hogy megkapja a beviteli mezőt. Adja meg a mappa elérési útját, és kattintson az „OK” gombra.

Minden hiperhivatkozás elérhető egy új dokumentumban.

Készen áll a Word hibákra

Bármennyire is vonakodunk belefutni egy Word hibába. Elkerülhetetlen, hogy ezt időnként elszenvedjük. Javaslatunk az, hogy amikor a Word összeomlik, válasszunk egy jártasat Word javítás eszköz. Csak bízzon mindent a szakemberre.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls kár és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com