Bagaimana cara memilih dan menyalin semua hyperlink dari dokumen Word?
Dalam beberapa kasus, Anda memiliki dokumen panjang dengan beberapa hyperlink yang ada, dan Anda hanya perlu menyalin semua hyperlink sekaligus dari dokumen ini lalu menempelkannya ke yang lain. Adakah cara bisa dengan cepat menyalin semuanya sekaligus daripada menyalinnya satu per satu?
Salin semua hyperlink dengan VBA
1. Buka dokumen Word yang ingin Anda salin hyperlinknya, dan tekan Alt + F11 untuk membuka Jendela Aplikasi Berbasis Microsoft Visual.
2. klik Menyisipkan > Modul, dan salin VBA berikut ke Window.
VBA: Salin semua hyperlink
Sub HyperlinksExtract()
'Updateby20140214
Dim oLink As Hyperlink
Dim docCurrent As Document 'current document
Dim docNew As Document 'new document
Dim rngStory As StoryRanges
Set docCurrent = ActiveDocument
Set docNew = Documents.Add
For Each oLink In docCurrent.Hyperlinks
oLink.Range.Copy
docNew.Activate
Selection.Paste
Selection.TypeParagraph
Next
Set docNew = Nothing
Set docCurrent = Nothing
End Sub
3. Klik Run tombol untuk menjalankan kode VBA. Kemudian semua hyperlink disalin ke dokumen baru. Anda dapat menyimpan dokumen baru nanti. Anda bisa melihat hasilnya sebagai berikut.
 |
 |
 |
Catatan: VBA ini hanya bisa berjalan jika semua hyperlink ditautkan dengan teks, jika ada gambar dengan hyperlink maka kode VBA ini tidak bisa berfungsi.
Ekstrak semua alamat hyperlink dengan VBA
1. Buka dokumen Word yang ingin Anda ekstrak hyperlinknya, dan tekan Alt + F11 untuk membuka Jendela Aplikasi Berbasis Microsoft Visual.
2. klik Menyisipkan > Modul, dan salin VBA berikut ke Window.
VBA: Ekstrak semua alamat hyperlink
Function GetAllHyperlinks()
'Updateby20140214
Dim docCurrent As Document
Dim docNew As Document
Dim oLink As Hyperlink
Dim rng As Range
Application.ScreenUpdating = False
Set docCurrent = ActiveDocument
Set docNew = Documents.Add
For Each oLink In docCurrent.Hyperlinks
Set rng = docNew.Range
rng.Collapse
rng.InsertParagraph
rng.InsertAfter (oLink.Address)
Next
docNew.Activate
Application.ScreenUpdating = True
Application.ScreenRefresh
End Function
3. Klik Run tombol untuk menjalankan kode VBA. Kemudian semua alamat hyperlink diekstraksi dalam dokumen baru, Anda dapat menyimpannya nanti.
|
|
 |
Catatan: Alamat ekstrak hyperlink tidak dalam urutan aslinya.
Salin semua hyperlink atau hanya alamat ke clipboard dengan Kutools for Word
Jika Anda ingin menyalin semua hyperlink atau hanya alamat ke clipboard dari dokumen Word dengan mudah dan cepat, file Salin Hyperlink kegunaan Kutools for Word dapat membantu Anda ini.
Setelah menginstal Kutools for Word, lakukan seperti di bawah ini:
1. klik Kutools Ditambah > Salin Hyperlink.
2. Dalam dialog Salin semua hyperlink ke clipboard yang muncul, pilih satu opsi yang Anda perlukan.
Sekarang, pilih satu lokasi yang Anda inginkan untuk menempatkan hyperlink, tekan Ctrl + V untuk menempelkannya.
| Salin dan tempel hyperlink |
 |
| Salin dan tempel alamat hyperlink |
 |
Demo: Salin Semua Hyperlink di Dokumen Word
Temukan Kutools / Kutools Ditambah tab dalam video ini dari Kutools for Word. Nikmati 100+ fitur dan utilitas AI gratis secara permanen. Unduh sekarang!
| Penjelajahan & Pengeditan dengan Tab untuk Beberapa Dokumen Word/Buku Kerja Excel, Sama Seperti di Chrome dan Edge! |
Sama seperti menjelajahi beberapa halaman web di Chrome, Safari, dan Edge, Office Tab memungkinkan Anda membuka dan mengelola beberapa dokumen Word atau buku kerja Excel dalam satu jendela Word atau jendela Excel. Beralih antara dokumen atau buku kerja kini mudah dengan satu klik pada tabnya! |
Artikel Terkait:
- Sisipkan, hapus dan daftar semua hyperlink dari dokumen saat ini di Word
- Sisipkan beberapa hyperlink ke dokumen di Word
- Hapus semua hyperlink di Word
Alat Produktivitas Kantor Terbaik
Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!
π€ Fitur AI Kutools: Hasilkan Konten / Menulis Ulang Teks / Tanya Jawab Dokumen / Dapatkan Jawaban Cepat / Terjemahkan dokumen / Dokumen Polandia (Format Pertahankan)...
π Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...) / Konversi Batch ke PDF...
β Pengeditan Isi: Temukan dan Ganti Batch di Beberapa File / Ubah Ukuran Semua Gambar / Ubah Urutan Baris dan Kolom Tabel / Ubah Tabel menjadi Teks...
🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra / Bagian Istirahat / Teks box / Hyperlink / Untuk alat penghapus lainnya, kunjungi Hapus kelompok...
β Sisipan Kreatif: Memasukkan Seribu Pemisah / Kotak Centang / Tombol Radio / Kode QR / barcode / Banyak Gambar / Temukan lebih lanjut di Menyisipkan kelompok...
π Pilihan Presisi: Tepat Halaman Tertentu / Meja / bentuk / Paragraf Judul / Tingkatkan navigasi dengan lebih Pilih fitur...
β Peningkatan Bintang: Navigasi ke Lokasi Mana Pun / Sisipkan Otomatis Teks Berulang / Beralih Antar Jendela Dokumen / 11 Konversi Tools...
Alat Produktivitas Kantor Terbaik
Kutools for Word - 100+ Alat untuk Word
- π€ Fitur AI Kutools: Menghasilkan, Menulis kembali, Meringkaskan, Menterjemahkan Dokumen / Dapatkan Jawaban Cepat / Dokumen Polandia (Format Pertahankan)
- π Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Konversi Batch ke PDF
- β Pengeditan Isi: Temukan dan Ganti Batch / Ubah Ukuran Semua Gambar
- 🧹 Bersih dengan Mudah: Hapus Spasi Ekstra / Hapus Bagian Breaks
- β Sisipan Kreatif: Masukkan Seribu Pemisah / Sisipkan Kotak Centang / Buat Kode QR