Note: The other languages of the website are Google-translated. Back to English

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:

doc memasukkan gambar dengan nama file 1

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:

doc memasukkan gambar dengan nama file 2


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.

Kutools for Word : dengan lebih dari 100 add-in Word yang praktis, gratis untuk dicoba tanpa batasan dalam 60 hari. 

Setelah menginstal Kutools for Word, lakukan seperti ini:

1. Klik Kutools > Images, lihat tangkapan layar:

doc memasukkan gambar dengan nama file 3

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 .

doc memasukkan gambar dengan nama file 4

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

doc memasukkan gambar dengan nama file 5

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


Alat Produktivitas Kata yang Direkomendasikan

 

Kutools For Word - Lebih dari 100 Fitur Canggih Untuk Word, Hemat 50% Waktu Anda

  • Pengoperasian yang rumit dan berulang dapat dilakukan satu kali pemrosesan dalam hitungan detik.
  • Sisipkan beberapa gambar di seluruh folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan gabungkan beberapa file Word di seluruh folder menjadi satu dengan urutan yang Anda inginkan.
  • Pisahkan dokumen saat ini menjadi dokumen terpisah sesuai dengan judul, hentian bagian, atau kriteria lainnya.
  • Konversikan file antara Doc dan Docx, Docx dan PDF, kumpulan alat untuk konversi dan pemilihan umum, dan seterusnya ...
Urutkan komentar berdasarkan
komentar (7)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
buenas noches amigo me ha servido mucho su informasi sinembargo me surge una duda cree que es posible incertar imagenes en word de la misma manera pero dentro de celdas incertadas?
Komentar ini diminimalkan oleh moderator di situs
Baris kode mana yang akan Anda ubah dan bagaimana cara membuat jalur file ditulis sebelum gambar, alias keterangan (nama file) di atas daripada di bawah.
Komentar ini diminimalkan oleh moderator di situs
Dengan Seleksi
.Teks = xFile
.InlineShapes.AddPicture xPath & "\" & xFile, False, True
.InsertAfter vbCrLf
.Pindah ke Bawah wdLine

Berakhir dengan
Komentar ini diminimalkan oleh moderator di situs
Harus menambahkan ini .MoveDown wdLine setelah .Text=xFile
Komentar ini diminimalkan oleh moderator di situs
Wow ini bagus! Saya hanya membutuhkan nama file, jadi saya menghapus "xPath & "\" &" dari baris .Text dan itu berfungsi dengan baik. Terima kasih untuk ini!
Komentar ini diminimalkan oleh moderator di situs
Masalah terjadi saat nama file yang akan ditambahkan melebihi 10.

pic1
pic10
pic11
pic12
pic2
pic3
pic4
gambar 5...
Komentar ini diminimalkan oleh moderator di situs
ubah nama file menjadi 01, 02, 03 dan itu akan berhasil
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL