Bagaimana cara menyisipkan banyak gambar dengan nama file di dokumen Word?

Di dokumen Word, Anda dapat dengan cepat menyisipkan beberapa gambar sekaligus dengan menggunakan fungsi Sisipkan. Namun, terkadang, Anda perlu memasukkan jalur file dan nama sebagai keterangan saat menyisipkan gambar. Bagaimana Anda bisa menangani tugas ini di file Word?

Masukkan banyak gambar dengan nama file menggunakan kode VBA

Masukkan beberapa gambar dengan nama file menggunakan Kutools for Word

Masukkan banyak gambar dengan nama file menggunakan kode VBA

Kode VBA berikut dapat membantu Anda memasukkan jalur file dan nama sebagai keterangan saat memasukkan gambar, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dan kemudian, klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang dibuka:

Kode VBA: Masukkan banyak gambar dengan nama file:

Sub PicWithCaption()
    Dim xFileDialog As FileDialog
    Dim xPath, xFile As Variant
    On Error Resume Next
    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)
    If xFileDialog.Show = -1 Then
        xPath = xFileDialog.SelectedItems.Item(1)
        If xPath <> "" Then
            xFile = Dir(xPath & "\*.*")
            Do While xFile <> ""
                If UCase(Right(xFile, 3)) = "PNG" Or _
                    UCase(Right(xFile, 3)) = "TIF" Or _
                    UCase(Right(xFile, 3)) = "JPG" Or _
                    UCase(Right(xFile, 3)) = "GIF" Or _
                    UCase(Right(xFile, 3)) = "BMP" Then
                    With Selection
                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True
                        .InsertAfter vbCrLf
                        .MoveDown wdLine
                        .Text = xPath & "\" & xFile & Chr(10)
                        .MoveDown wdLine
                    End With
                End If
                xFile = Dir()
            Loop
        End If
    End If
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, jendela Browse ditampilkan, pilih folder yang berisi gambar yang ingin Anda masukkan, lihat tangkapan layar:

4. Lalu klik OK tombol, semua gambar di folder yang dipilih telah dimasukkan ke dalam dokumen Word, dan jalur file dan nama dimasukkan sebagai keterangan kami dengan baik, lihat tangkapan layar:

Masukkan beberapa gambar dengan nama file menggunakan Kutools for Word

Jika Anda memiliki Kutools for Word, Dengan yang Images fitur, Anda dapat dengan cepat memasukkan beberapa gambar dengan jalur file dan nama ke dokumen Word dengan segera.

Setelah menginstal Kutools for Word, lakukan seperti ini:

1. Klik Kutools > Images, lihat tangkapan layar:

2. Di muncul keluar Sisipkan Gambar kotak dialog, lakukan operasi di bawah ini:

• (1.) Klik Tambahkan File or Tambah Folder tombol untuk memilih gambar yang ingin Anda sisipkan;
• (2.) Kemudian periksa Sisipkan jalur file dari setiap gambar sebagai keterangan opsi di kiri bawah kotak dialog;
• (3.) Lalu klik Menyisipkan .

3. Setelah memasukkan gambar, Anda akan melihat jalur file setiap gambar dan nama dimasukkan juga, lihat tangkapan layar:

Klik untuk mengunduh Kutools for Word dan uji coba gratis sekarang!

Alat Produktivitas Kantor Terbaik

Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!

🤖 Asisten AI Kutools: Ubah tulisan Anda dengan AI - Hasilkan Konten  /  Menulis Ulang Teks  /  Meringkas Dokumen  /  Menanyakan Informasi berdasarkan Dokumen, semuanya dalam Word

📘 Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...)  /  Konversi Batch ke PDF  /  Ekspor Halaman sebagai Gambar  /  Cetak Banyak File sekaligus...

✏ Pengeditan Isi: Temukan dan Ganti Batch di Banyak File  /  Ubah Ukuran Semua Gambar  /  Ubah Urutan Baris dan Kolom Tabel  /  Ubah Tabel menjadi Teks...

🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra  /  Bagian Istirahat  /  Semua Header  /  Teks box  /  Hyperlink  / Untuk alat penghapus lainnya, kunjungi Hapus grup...

➕ Sisipan Kreatif: Memasukkan Seribu Pemisah  /  Kotak Centang  /  Tombol Radio  /  Kode QR  /  barcode  /  Tabel Garis Diagonal  /  Keterangan Persamaan  /  Keterangan gambar  /  Keterangan Tabel  /  Banyak Gambar  / Temukan lebih lanjut di Sisipkan grup...

🔍 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 Alat Konversi...

👉 Ingin mencoba fitur-fitur tersebut? Kutools for Word menawarkan a Uji coba gratis 60-hari, tanpa batasan! 🚀

Free download     Baca Selengkapnya     Beli sekarang