Hogyan lehet megszámolni a képek számát egy Word dokumentumban?

Ha a Word dokumentumban több olyan grafika van, amely inline képeket és lebegő alakzatokat is tartalmaz, akkor most meg szeretné számolni ezeknek a grafikáknak a számát az egész dokumentumban, hogyan lehetne gyorsan és helyesen megszerezni a képek számát?

Számolja meg a beágyazott képek számát a Keresés és csere funkcióval

Számolja meg a sorban lévő képek és a lebegő alakzatok számát VBA kóddal

Számolja meg a beágyazott képek számát a Keresés és csere funkcióval

A Keresés és csere A Word szolgáltatása segít abban, hogy csak gyorsan és egyszerűen számolja meg a beépített képek számát. Kérjük, tegye a következőket:

1. Kattints Kezdőlap > Találjon > Speciális keresés, lásd a képernyőképet:

doc count képek 1

2. Az Keresés és csere párbeszédpanel alatt Találjon fülre írja be a ^g be a Mit keres szövegmezőbe, majd válassza a lehetőséget Fődokumentum tól Keresse meg legördülő lista, lásd a képernyőképet:

doc count képek 2

3. És akkor láthatja, hogy a Word-dokumentumban lévő beépített képek száma a következő képernyőképen jelenik meg:

doc count képek 3

Számolja meg a sorban lévő képek és a lebegő alakzatok számát VBA kóddal

A fenti módszer csak az inline képek számát képes megszámolni, ha vannak úszó alakzatok a dokumentumban, akkor azokat nem számolják. A következő VBA-kód segíthet a belső képek és a lebegő alakzatok megszámlálásában, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ezután kattints a gombra betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba, lásd a képernyőképet:

VBA-kód: Számolja meg az inline képek és az úszó alakzatok számát:

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. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely megmondja, hogy hány soros kép és lebegő alakzat van ebben a Word-dokumentumban, lásd a képernyőképet:

doc count képek 4