Note: The other languages of the website are Google-translated. Back to English

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 Home > 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



Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL