2 Cara Pantas Mengekstrak Semua Pautan Pautan dari Dokumen Word Anda

Artikel ini akan menunjukkan kepada anda 2 cara cepat untuk mengekstrak Batch semua pautan dari dokumen Word anda, untuk mengikuti pautan tersebut.

Sering kali, terdapat ratusan hyperlink yang tersebar di seluruh dokumen Word. Dalam senario ini, jika anda perlu mengikuti pautan tertentu, anda mesti menavigasi dokumen tersebut untuk mencarinya terlebih dahulu, yang boleh menjadi kesakitan pada fail yang panjang.

Walau bagaimanapun, jika anda mengeksportnya ke dokumen baru, perkara akan menjadi lebih mudah. Inilah penyelesaian kami.

Kaedah 1: Gunakan Ciri "Cari"

1. Pertama, klik tab "Laman Utama" kemudian butang anak panah di dekat perintah "Cari".
2. Pada menu lungsur turun pilih "Cari Lanjutan" untuk membuka kotak dialog "Cari dan Ganti".
3. Seterusnya klik butang "Lagi" dan klik "Format".
4. Pilih "Gaya" untuk membuka kotak "Cari Gaya".
5. Pilih "Hyperlink" dan klik "OK".
6. Kemudian klik "Cari Di" dan pilih "Dokumen Utama".

Anda dapat melihat semua pautan hiperpilihan sekarang. Walau bagaimanapun, jika anda menyalin dan menampalnya ke dokumen baru, anda akan mendapati pautan kehilangan formatnya dan menjadi teks biasa.

Pada masa ini, Microsoft tidak mempunyai penyelesaian untuk masalah ini. Oleh itu, anda harus menukar teks biasa kembali ke hyperlink kembali secara manual. Berikut adalah artikel kami yang terdahulu, menyenaraikan pelbagai cara yang boleh anda ikuti: 5 Cara Menukar Teks URL ke Pautan Hiper dalam Dokumen Word Anda

Kerana kekurangan ini, kami mengesyorkan anda cara lain, juga dilakukan dengan bantuan ciri "Cari". Lihat bagian "Cari Semua Pautan Dalam Dokumen" dalam artikel ini: Cara Mencari, Mengubah dan Menghapus Pautan Hiper di Dokumen Word Anda

Setelah menemui semua pautan hiperpautan, anda melakukan kerja "Salin" dan "Tampal" untuk mengeksportnya.

Kaedah 2: Jalankan Kod VBA

1. Pertama sekali, tekan "Alt + F11" untuk membuka editor VBA.
2. Seterusnya klik "Insert" dan pilih "Module" untuk membuat yang baru di bawah projek "Normal".
3. Kemudian klik dua kali modul untuk membuka ruang penyuntingan dan tampal kod berikut di sana:

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. Terakhir, klik butang "Jalankan".

Sekarang akan ada dokumen baru yang terbuka dan semua pautan hiper dapat diklik di sana.

Selain itu, sekiranya terdapat banyak fail yang perlu diproses, anda boleh menjalankan makro berikut:

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

Ingatlah untuk menyusun semua dokumen dalam satu folder terlebih dahulu. Kemudian jalankan makro di atas untuk mendapatkan kotak input. Masukkan laluan folder dan klik "OK".

Semua pautan hiper kini boleh didapati dalam dokumen baru.

Bersedia untuk Kesalahan Kata

Tidak peduli seberapa enggan kita menghadapi kesalahan Word. Tidak dapat dielakkan menderita ini dari semasa ke semasa. Cadangan kami adalah ketika Word runtuh, memilih mahir Pembaikan perkataan alat. Serahkan semuanya kepada profesional.

Pengenalan Pengarang:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk kerosakan xls dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com