Hoppa till huvudinnehåll

Hur räknar man antalet bilder i ett Word-dokument?

Om det finns flera bilder i ditt Word-dokument som innehåller både inbyggda bilder och flytande former, vill du nu räkna antalet dessa bilder i hela dokumentet, hur kan du få antalet bilder snabbt och korrekt?

Räkna antalet inbyggda bilder med funktionen Sök och ersätt

Räkna antalet både inbyggda bilder och flytande former med VBA-kod


Räkna antalet inbyggda bilder med funktionen Sök och ersätt

Smakämnen Sök och ersätt funktionen i Word kan hjälpa dig att räkna antalet inbyggda bilder bara snabbt och enkelt, gör så här:

1. Klicka Hem > hitta > Avancerad Sök, se skärmdump:

bilder för räkningsdokument 1

2. I Sök och ersätt under dialogrutan hitta fliken, skriv ^g i Hitta det textruta och välj sedan Huvuddokument från Hitta i rullgardinsmeny, se skärmdump:

bilder för räkningsdokument 2

3. Och då kan du se antalet inbyggda bilder i detta Word-dokument har visats som följande skärmdump som visas:

bilder för räkningsdokument 3


Räkna antalet både inbyggda bilder och flytande former med VBA-kod

Ovanstående metod kan bara räkna antalet inbyggda bilder, om det finns några flytande former i dokumentet kommer de inte att räknas. Följande VBA-kod kan hjälpa dig att räkna både inbyggda bilder och flytande former, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan Insert > Modulerna, kopiera och klistra in koden nedan i den öppnade tomma modulen, se skärmdump:

VBA-kod: Räkna antalet både inbyggda bilder och flytande former:

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. När du har klistrat in koden, tryck sedan på F5 nyckel för att köra den här koden och en snabbruta visas för att berätta hur många inbyggda bilder och flytande former i detta Word-dokument, se skärmdump:

bilder för räkningsdokument 4


Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll  /  Skriv om text  /  Sammanfatta dokument  /  Fråga för information baserat på dokument, allt i Word

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/HTML...)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt...

Innehållsredigering: Batch Hitta och ersätt över flera filer  /  Ändra storlek på alla bilder  /  Transponera tabellrader och kolumner  /  Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /  Alla rubriker  /  Textrutor  /  Hyperlänkar  / För fler borttagningsverktyg, gå till vår Ta bort gruppen...

Kreativa inlägg: Föra in Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  / Upptäck mer i Infoga grupp...

🔍 Precisionsval: Precisera specifika sidor  /  Tabellerna  /  former  /  rubrikerna  / Förbättra navigering med mer Välj funktioner...

Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg...

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀
 
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