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:
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:
3. Och då kan du se antalet inbyggda bilder i detta Word-dokument har visats som följande skärmdump som visas:
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:
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...