Salt la conținutul principal

Cum se numără numărul de imagini dintr-un document Word?

Dacă există mai multe elemente grafice în documentul dvs. Word care conțin atât imagini în linie, cât și forme plutitoare, acum doriți să numărați numărul acestor elemente grafice în întregul document, cum ați putea obține numărul de imagini rapid și corect?

Numărați numărul de imagini în linie cu funcția Găsiți și înlocuiți

Numărați numărul de imagini în linie și forme plutitoare cu codul VBA


Numărați numărul de imagini în linie cu funcția Găsiți și înlocuiți

Găsiți și înlocuiți funcția din Word vă poate ajuta să numărați numărul de imagini în linie numai rapid și ușor, vă rugăm să faceți următoarele:

1. Clic Inițial > Găsi > Căutare avansată, vezi captura de ecran:

imagini cu număr de documente 1

2. În Găsiți și înlocuiți caseta de dialog, sub Găsi fila, tastați ^g în Gaseste ce caseta de text, apoi alegeți Documentul principal de la Gasit in lista derulantă, vezi captura de ecran:

imagini cu număr de documente 2

3. Și apoi puteți vedea numărul de imagini în linie din acest document Word a fost afișat după cum urmează:

imagini cu număr de documente 3


Numărați numărul de imagini în linie și forme plutitoare cu codul VBA

Metoda de mai sus poate conta doar numărul de imagini în linie, dacă există unele forme plutitoare în document, acestea nu vor fi numărate. Următorul cod VBA vă poate ajuta să numărați atât imaginile în linie, cât și formele plutitoare, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Module, copiați și lipiți codul de mai jos în modulul gol deschis, vedeți captura de ecran:

Cod VBA: Numărați atât imaginile în linie, cât și formele plutitoare:

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. După lipirea codului, apoi apăsați F5 tasta pentru a rula acest cod și apare o casetă de prompt pentru a vă spune câte imagini în linie și forme plutitoare din acest document Word, vedeți captura de ecran:

imagini cu număr de documente 4


Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

Scufundați-vă în caracteristicile evidențiate de mai jos sau faceți clic aici pentru a explora întreaga putere a Kutools for Word.

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/XLSX)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan ...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere   /  Redimensionați toate imaginile   /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text ...

🧹 Curățare fără efortÎndepărtați Spații suplimentare  /  Secțiuni pauze  /   Toate anteturile  /  Casete text  /  hiperlinkuri  /  Pentru mai multe instrumente de eliminare, accesați grupul nostru de eliminare

Inserții creative: Insera Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  /  Descoperiți mai multe în grupul nostru de inserări

???? Selectii de precizie: Identificați anumite pagini  /  tabele  /  forme  /  paragrafele de titlu  /  Navigați cu ușurință folosind grupul nostru Select

Îmbunătățiri de stele: Navigați rapid în orice locație  /  inserarea automată a textului repetitiv  /  comutați fără probleme între ferestrele documentelor  /  11 Instrumente de conversie ...

Transformați-vă sarcinile Word cu Kutools. 👉 Descărcați acum cu o perioadă de încercare de 30 de zile 🚀.

 
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