2 Cara Cepat untuk Mengekstrak Semua Hyperlink dari Dokumen Word Anda

Artikel ini akan menunjukkan kepada Anda 2 cara cepat untuk mengekstrak batch semua hyperlink dari dokumen Word Anda, untuk mengikuti tautan.

Seringkali, ada ratusan hyperlink yang tersebar di seluruh dokumen Word. Dalam skenario ini, jika Anda perlu mengikuti tautan tertentu, Anda harus menavigasi dokumen untuk menemukannya terlebih dahulu, yang bisa sangat merepotkan dalam file yang panjang.

Namun, jika Anda mengekspornya ke dokumen baru, semuanya bisa menjadi jauh lebih mudah. Berikut adalah solusi kami.

Metode 1: Memanfaatkan Fitur "Temukan"

1. Pertama, klik tab "Beranda" lalu tombol panah di dekat perintah "Temukan".
2. Pada menu tarik-turun, pilih "Penemuan Lanjutan" untuk membuka kotak dialog "Temukan dan Ganti".
3. Selanjutnya klik tombol "Lainnya" dan klik "Format".
4. Pilih "Gaya" untuk membuka kotak "Temukan Gaya".
5. Pilih "Hyperlink" dan klik "OK".
6. Kemudian klik "Temukan" dan pilih "Dokumen Utama".

Anda dapat melihat semua hyperlink dalam pilihan sekarang. Namun, jika Anda menyalin dan menempelkannya ke dokumen baru, Anda akan menemukan tautan kehilangan formatnya dan menjadi teks biasa.

Saat ini, Microsoft tidak memiliki solusi untuk masalah ini. Jadi, Anda harus mengonversi teks biasa kembali ke hyperlink lagi secara manual. Berikut adalah artikel kami sebelumnya, daftar berbagai cara yang dapat Anda ikuti: 5 Cara Mengonversi Teks URL ke Hyperlink di Dokumen Word Anda

Karena kekurangan ini, kami menyarankan Anda cara lain, juga dilakukan dengan bantuan fitur "Temukan". Silakan merujuk ke bagian “Temukan Semua Hyperlink dalam Dokumen” di artikel ini: Cara Menemukan, Mengubah, dan Menghapus Hyperlink di Dokumen Word Anda

Setelah menemukan semua hyperlink, Anda melakukan pekerjaan "Salin" dan "Tempel" untuk mengekspornya.

Metode 2: Jalankan Kode VBA

1. Pertama dan terpenting, tekan “Alt+F11” untuk membuka editor VBA.
2. Selanjutnya klik "Sisipkan" dan pilih "Modul" untuk membuat yang baru di bawah proyek "Normal".
3. Kemudian klik dua kali modul untuk membuka ruang pengeditan dan tempel kode di bawah ini 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 tombol "Run".

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

Selain itu, jika ada banyak file yang perlu diproses, Anda dapat menjalankan makro ini di bawah ini:

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 mengatur semua dokumen dalam satu folder terlebih dahulu. Kemudian jalankan makro di atas untuk mendapatkan kotak input. Masukkan jalur folder dan klik "OK".

Semua hyperlink sekarang tersedia di dokumen baru.

Siap untuk Kesalahan Kata

Tidak peduli seberapa enggan kita untuk mengalami kesalahan Word. Tidak dapat dihindari untuk menderita ini dari waktu ke waktu. Saran kami adalah ketika Word runtuh, pilih yang mahir Perbaikan kata alat. Serahkan saja semuanya pada profesional.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk kerusakan xls ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com