Loncat ke daftar isi utama

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


Alat Produktivitas Kantor Terbaik

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

Selami fitur-fitur yang disorot di bawah atau klik di sini untuk menjelajahi kekuatan penuh Kutools for Word.

📘 Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/XLSX)  /  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 MudahSapu Spasi Ekstra  /  Bagian Istirahat  /   Semua Header  /  Teks box  /  Hyperlink  /  Untuk alat penghapus lainnya, kunjungi Grup Hapus kami

Sisipan Kreatif: Menyisipkan Seribu Pemisah  /  Kotak Centang  /  Tombol Radio  /  Kode QR  /  barcode  /  Tabel Garis Diagonal  /  Keterangan Persamaan  /  Keterangan gambar  /  Keterangan Tabel  /  Banyak Gambar  /  Temukan lebih lanjut di Grup Sisipkan kami

🔍 Pilihan Presisi: Tentukan halaman tertentu  /  tabel  /  bentuk  /  paragraf judul  /  Navigasi dengan mudah menggunakan Grup Pilihan kami

Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun  /  menyisipkan teks berulang secara otomatis  /  beralih antar jendela dokumen dengan mulus  /  11 Alat Konversi ...

Ubah tugas Word Anda dengan Kutools. 👉 Unduh dengan uji coba 30 hari Sekarang 🚀.

 
Comments (1)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
helpfulllll😀😁
Rated 5 out of 5
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations