Bagaimana cara menghitung jumlah gambar dalam dokumen Word?

Jika ada beberapa grafik di dokumen Word Anda yang berisi gambar sebaris dan bentuk mengambang, sekarang, Anda ingin menghitung jumlah grafik ini di seluruh dokumen, bagaimana Anda bisa mendapatkan jumlah gambar dengan cepat dan benar?

Hitung jumlah gambar sebaris dengan fitur Find and Replace

Hitung jumlah gambar sebaris dan bentuk mengambang dengan kode VBA

Hitung jumlah gambar sebaris dengan fitur Find and Replace

Grafik Cari dan Ganti Fitur di Word dapat membantu Anda menghitung jumlah gambar sebaris dengan cepat dan mudah, lakukan hal berikut:

1. Klik Beranda > Menemukan > Cari Lanjutan, lihat tangkapan layar:

doc menghitung gambar 1

2. di Cari dan Ganti kotak dialog, di bawah Menemukan tab, ketik ^g ke dalam Temukan apa kotak teks, lalu pilih Dokumen utama dari Temukan di daftar drop-down, lihat tangkapan layar:

doc menghitung gambar 2

3. Dan kemudian Anda dapat melihat jumlah gambar sebaris di dokumen Word ini telah ditampilkan seperti gambar berikut yang ditampilkan:

doc menghitung gambar 3

Hitung jumlah gambar sebaris dan bentuk mengambang dengan kode VBA

Cara di atas hanya bisa menghitung jumlah gambar sebaris, jika ada beberapa bentuk mengambang di dokumen, mereka tidak akan dihitung. Kode VBA berikut dapat membantu Anda menghitung gambar sebaris dan bentuk mengambang, lakukan seperti ini:

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

2. Lalu klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang dibuka, lihat tangkapan layar:

Kode VBA: Hitung jumlah gambar sebaris dan bentuk mengambang:

Sub CountImagesInDoc()
    Dim xInlines As Long
    Dim xFloaters As Long
    Dim sh As Shape
    Dim tbxs As Long
    Dim msg As String
    With ActiveDocument
        For Each sh In .Shapes
            If sh.Type = msoTextBox Then tbxs = tbxs + 1
        Next
        xInlines = .InlineShapes.Count
        xFloaters = .Shapes.Count - tbxs
    End With
    xPrompt = "Inline images:" & vbTab & xInlines & vbCr
    xPrompt = xPrompt & "Floating shapes:" & vbTab & xFloaters & vbCr
    xPrompt = xPrompt & vbTab & "Total:" & vbTab & (xInlines + xFloaters) & vbCr
    xPrompt = xPrompt & "Counts do not include headers and footers, etc."
    MsgBox xPrompt, vbInformation, "Kutools for Word"
End Sub

3. Setelah menempelkan kode, lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk memberi tahu Anda berapa banyak gambar sebaris dan bentuk mengambang di dokumen Word ini, lihat tangkapan layar:

doc menghitung gambar 4