Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako šteti število slik v Wordovem dokumentu?

Če v Wordovem dokumentu vsebuje več grafik, ki vsebujejo tako inline kot plavajoče oblike, želite, da število teh grafik vštevate v celotnem dokumentu, kako hitro in pravilno lahko dobite število slik?

Izračunajte število vrstic z možnostjo »Find and Replace«

Izračunajte število obeh vrstic in plavajočih oblik s kodo VBA


Izračunajte število vrstic z možnostjo »Find and Replace«

O Poišči in zamenjaj funkcija v programu Word vam lahko hitro in enostavno šteje število slik v vrsticah, storite naslednje:

1. Kliknite Domov > Najdi > Napredno iskanje, si oglejte sliko zaslona:

doc count slike 1

2. v Poišči in zamenjaj pogovorno okno, pod Najdi jeziček, vnesite ^g v Našli kaj polje z besedilom in nato izberite Glavni dokument Iz Najdi spustni seznam, si oglejte posnetek zaslona:

doc count slike 2

3. In potem si lahko ogledate število vrstic slike v tem dokumentu Word je prikazano na naslednji sliki:

doc count slike 3


Izračunajte število obeh vrstic in plavajočih oblik s kodo VBA

Zgornja metoda lahko šteje samo število vrstic slike, če v dokumentu obstaja nekaj plavajočih oblik, jih ne bomo šteli. Naslednja VBA koda vam lahko pomaga pri štetju obeh slik in plavajočih oblik, zato storite tako:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

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

VBA koda: štetje števila obeh 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, nato pritisnite F5 ključ za zagon te kode, in izpisano je hitro okno, ki vam pove, koliko vrst slik in plavajočih oblik v tem dokumentu Word si oglejte na zaslonu:

doc count slike 4


Priporočena orodja za produktivnost Worda

shot kutools beseda kutools zavihek 1180x121
shot kutools beseda kutools plus zavihek 1180x120

Kutools for Word - več kot 100 napredne funkcije Za Microsoft Word shranite svoj čas 50%

  • Zapletene in ponavljajoče se operacije lahko opravite enkratno obdelavo v sekundah.
  • V dokument Worda vstavite več slik v mapah.
  • Združite in združite več datotek Word v mapah v eno z želenim naročilom.
  • Razdelite trenutni dokument v ločene dokumente v skladu z naslovom 1, odlomkom odseka ali drugimi merili.
  • Pretvorite datoteke med Doc in Docx, Docx in PDF, zbirko orodij za običajne konverzije in izbiro, in tako naprej...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.