Kako prešteti število slik v Wordovem dokumentu?

Če je v vašem Wordovem dokumentu več grafik, ki vsebujejo tako vrstice kot plavajoče oblike, želite zdaj šteti število teh grafik v celotnem dokumentu, kako lahko hitro in pravilno dobite število slik?

Štejte število vstavljenih slik s funkcijo Najdi in zamenjaj

Število vstavljenih slik in plavajočih oblik preštejte s kodo VBA

Štejte število vstavljenih slik s funkcijo Najdi in zamenjaj

O Poišči in zamenjaj funkcija v Wordu vam lahko pomaga hitro in enostavno prešteti število vstavljenih slik, naredite naslednje:

1. Kliknite Domov > Najdi > Napredno iskanje, glej posnetek zaslona:

slike štetja dokumentov 1

2. v Poišči in zamenjaj v pogovornem oknu pod Najdi zavihek vnesite ^g v Našli kaj besedilno polje in nato izberite Glavni dokument Iz Najdi spustni seznam, glej posnetek zaslona:

slike štetja dokumentov 2

3. Nato lahko vidite, da je število vstavljenih slik v tem Wordovem dokumentu prikazano, kot je prikazano na sliki spodaj:

slike štetja dokumentov 3

Število vstavljenih slik in plavajočih oblik preštejte s kodo VBA

Zgornja metoda lahko prešteje samo število vrstic v vrstici, če je v dokumentu nekaj plavajočih oblik, se ne bodo štele. Naslednja koda VBA vam lahko pomaga pri štetju vstavljenih slik in plavajočih oblik. Naredite to:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, kopirajte in prilepite spodnjo kodo v odprti prazen modul, glejte posnetek zaslona:

Koda VBA: preštejte število vrstic in plavajočih oblik:

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. Po lepljenju kode pritisnite F5 tipko za zagon te kode in izpiše se pozivno polje, ki vam pove, koliko vstavljenih slik in plavajočih oblik v tem Wordovem dokumentu si oglejte sliko zaslona:

slike štetja dokumentov 4