Ana içeriğe atla

Bir Word belgesindeki resim sayısını nasıl hesaplayabilirim?

Word belgenizde hem satır içi resimler hem de yüzen şekiller içeren birden fazla grafik varsa, şimdi bu grafiklerin sayısını tüm belgede saymak istiyorsanız, resim sayısını hızlı ve doğru bir şekilde nasıl elde edebilirsiniz?

Bul ve Değiştir özelliğiyle satır içi görüntülerin sayısını sayın

Hem satır içi görüntülerin hem de kayan şekillerin sayısını VBA kodu ile sayın


Bul ve Değiştir özelliğiyle satır içi görüntülerin sayısını sayın

The Bul ve Değiştir Word'deki özellik, satır içi resimlerin sayısını yalnızca hızlı ve kolay bir şekilde saymanıza yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:

1. tıklayın Ana Sayfa > bulmak > Gelişmiş Bul, ekran görüntüsüne bakın:

doc sayısı görüntüleri 1

2. In Bul ve Değiştir iletişim kutusunun altında bulmak sekmesini yazın ^g içine Ne bul metin kutusunu seçin ve ardından Ana belge itibaren Bulmak açılır liste, ekran görüntüsüne bakın:

doc sayısı görüntüleri 2

3. Ve sonra, bu Word belgesindeki satır içi resimlerin sayısının gösterilen aşağıdaki ekran görüntüsü gibi görüntülendiğini görebilirsiniz:

doc sayısı görüntüleri 3


Hem satır içi görüntülerin hem de kayan şekillerin sayısını VBA kodu ile sayın

Yukarıdaki yöntem yalnızca satır içi görüntülerin sayısını sayabilir, belgede bazı yüzen şekiller varsa bunlar sayılmaz. Aşağıdaki VBA kodu hem satır içi görüntüleri hem de kayan şekilleri saymanıza yardımcı olabilir, lütfen şu şekilde yapın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Daha sonra, Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın, ekran görüntüsüne bakın:

VBA kodu: Hem satır içi görüntülerin hem de yüzen şekillerin sayısını sayın:

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. Kodu yapıştırdıktan sonra F5 Bu kodu çalıştırmak için bir anahtar ve size bu Word belgesinde kaç tane satır içi resim ve kayan şekil olduğunu söyleyen bir istem kutusu açılır, ekran görüntüsüne bakın:

doc sayısı görüntüleri 4


En İyi Ofis Üretkenlik Araçları

Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!

🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur  /  Metni Yeniden Yaz  /  Belgeleri Özetleyin  /  Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de

📘 Belge Ustalığı: Sayfaları Böl  /  Belgeleri Birleştir  /  Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...)  /  PDF'ye Toplu Dönüştürme  /  Sayfaları Görüntü Olarak Dışa Aktar  /  Aynı Anda Birden Çok Dosyayı Yazdırma...

İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada  /  Tüm Resimleri Yeniden Boyutlandır  /  Tablo Satırlarını ve Sütunlarını Yer Değiştirme  /  Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar  /  Bölüm Sonları  /  Tüm Başlıklar  /  Metin kutuları  /  Köprüler  / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...

Yaratıcı Ekler: Ekle Bin Ayırıcı  /  Onay Kutuları  /  Radyo Düğmeleri  /  QR Code  /  Barkod  /  Çapraz Çizgi Tablosu  /  Denklem Başlığı  /  Görüntü Başlık  /  Tablo başlığı  /  Çoklu Resimler  / Daha fazlasını şurada keşfedin: Grup Ekle...

🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar  /  tablolar  /  şekiller  /  başlık paragrafları  / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...

Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin  /  tekrarlanan metni otomatik olarak ekle  /  belge pencereleri arasında sorunsuzca geçiş yapın  /  11 Dönüşüm Aracı...

👉 Bu özellikleri denemek ister misiniz? Kutools for Word şunları sunar: 60 günlük ücretsiz deneme, hiçbir sınırlama olmaksızın! ????
 
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