Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk memasukkan pelbagai gambar dengan nama fail dalam dokumen Word?

Dalam dokumen Word, anda boleh dengan cepat memasukkan beberapa gambar sekali gus dengan menggunakan fungsi Sisipkan. Tetapi, kadang-kadang, anda perlu memasukkan laluan fail dan nama sebagai kapsyen apabila memasukkan gambar. Bagaimana anda boleh menangani tugas ini dalam fail Word?

Masukkan beberapa gambar dengan nama fail dengan menggunakan kod VBA

Masukkan pelbagai gambar dengan nama fail dengan menggunakan Kutools untuk Word


Masukkan beberapa gambar dengan nama fail dalam dokumen Word:

dengan Kutools untuk Word, anda boleh dengan cepat memasukkan beberapa gambar dari folder atau beberapa folder ke dalam dokumen Word dengan laluan fail dan nama juga.

masukkan imej dengan nama fail 6

Kutools untuk Word: dengan lebih daripada 100 Word add-in berguna, bebas untuk mencuba tanpa had pada hari 60. Klik untuk Muat turun dan percubaan percuma Sekarang!


Masukkan beberapa gambar dengan nama fail dengan menggunakan kod VBA

Kod VBA berikut boleh membantu anda memasukkan laluan fail dan nama sebagai kapsyen apabila memasukkan imej, sila lakukan seperti ini:

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

2. Dan kemudian, klik Memasukkan > Modul, salin dan tampal di bawah kod ke dalam modul kosong dibuka:

Kod VBA: Masukkan beberapa gambar dengan nama fail:

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. Kemudian tekan F5 kunci untuk menjalankan kod ini, tetingkap Layari dipaparkan, sila pilih folder yang mengandungi imej yang anda mahu masukkan, lihat tangkapan skrin:

masukkan imej dengan nama fail 1

4. Kemudian klik OK butang, semua imej dalam folder yang dipilih telah dimasukkan ke dalam dokumen Word, dan laluan fail dan nama dimasukkan sebagai kapsyen kita dengan baik, lihat tangkapan skrin:

masukkan imej dengan nama fail 2


Masukkan pelbagai gambar dengan nama fail dengan menggunakan Kutools untuk Word

Jika anda mempunyai Kutools untuk Word, Dengan itu Imej ciri, anda boleh dengan cepat memasukkan beberapa gambar dengan jalan fail dan nama ke dalam dokumen Word dengan serta-merta.

Kutools untuk Word : dengan lebih daripada 100 Word add-in berguna, bebas untuk mencuba tanpa had pada hari 60.

Selepas memasang Kutools untuk Word, sila lakukan seperti ini:

1. Klik Kutools > Imej, lihat tangkapan skrin:

masukkan imej dengan nama fail 3

2. Dalam keluar Masukkan gambar kotak dialog, sila lakukan operasi di bawah:

  • (1.) Klik Tambah Fail or Tambah Folder butang untuk memilih imej yang anda mahu masukkan;
  • (2.) Kemudian semak Sisipkan laluan fail setiap gambar sebagai kapsyen pilihan di bahagian bawah kotak dialog sebelah kiri;
  • (3.) Kemudian klik Memasukkan butang.

masukkan imej dengan nama fail 4

3. Selepas memasukkan imej, anda akan melihat laluan fail setiap gambar dan nama dimasukkan juga, lihat tangkapan skrin:

masukkan imej dengan nama fail 5

Klik untuk memuat turun Kutools untuk Word dan percubaan percuma sekarang!

Alat produktiviti Word yang disyorkan

shot kutools perkataan kutools tab 1180x121
shot kutools perkataan kutools plus tab 1180x120

Kutools For Word - Lebih Daripada Ciri-ciri Lanjutan 100 Untuk Microsoft Word, Simpan 50% Time anda

  • Operasi yang rumit dan berulang boleh dilakukan pemprosesan satu kali dalam beberapa saat.
  • Sisipkan beberapa imej merentas folder ke dalam dokumen Word sekaligus.
  • Gabungkan dan menggabungkan beberapa fail Word merentas folder ke dalam satu dengan pesanan yang anda inginkan.
  • Pisah dokumen semasa ke dalam dokumen berasingan mengikut tajuk 1, pecahan bahagian atau kriteria lain.
  • Tukar fail antara Doc dan Docx, Docx dan PDF, koleksi alat untuk penukaran dan pilihan biasa, dan sebagainya...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.