Hoe tel ik het aantal afbeeldingen in een Word-document?
Als er meerdere afbeeldingen in uw Word-document zijn die zowel inline afbeeldingen als zwevende vormen bevatten, wilt u nu het aantal van deze afbeeldingen in het hele document tellen, hoe kunt u dan het aantal afbeeldingen snel en correct krijgen?
Tel het aantal inline afbeeldingen met de functie Zoeken en vervangen
Tel het aantal inline-afbeeldingen en zwevende vormen met VBA-code
Tel het aantal inline afbeeldingen met de functie Zoeken en vervangen
De Zoeken en vervangen functie in Word kan u helpen om het aantal inline afbeeldingen alleen snel en eenvoudig te tellen, doe dit als volgt:
1. Klikken Home > VIND DE PLEK DIE PERFECT VOOR JOU IS > Geavanceerd zoeken, zie screenshot:
2. In de Zoeken en vervangen dialoogvenster onder het VIND DE PLEK DIE PERFECT VOOR JOU IS tab, typ het ^g in de Zoeken naar tekstvak en kies vervolgens Hoofd document van het Vinden in vervolgkeuzelijst, zie screenshot:
3. En dan kunt u zien dat het aantal inline-afbeeldingen in dit Word-document is weergegeven als het volgende screenshot:
Tel het aantal inline-afbeeldingen en zwevende vormen met VBA-code
De bovenstaande methode kan alleen het aantal inline-afbeeldingen tellen, als er enkele zwevende vormen in het document zijn, worden deze niet geteld. De volgende VBA-code kan u helpen om zowel de inline afbeeldingen als de zwevende vormen te tellen, doe dit als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Dan klikken Invoegen > Module, kopieer en plak onderstaande code in de geopende lege module, zie screenshot:
VBA-code: tel het aantal inline-afbeeldingen en zwevende vormen:
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. Nadat u de code hebt geplakt, drukt u op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u te vertellen hoeveel inline afbeeldingen en zwevende vormen in dit Word-document, zie screenshot:
Beste Office-productiviteitstools
Kutools for Word - Verbeter uw woordervaring met Over 100 Opmerkelijke kenmerken!
🤖 Kutools AI-assistent: Transformeer uw schrijven met AI - Inhoud genereren / Herschrijf tekst / Documenten samenvatten / Informeer voor informatie gebaseerd op document, allemaal binnen Word
📘 Documentbeheersing: Pagina's splitsen / Voeg documenten samen / Selectie exporteren in verschillende formaten (PDF/TXT/DOC/HTML...) / Batchconversie naar PDF / Pagina's exporteren als afbeeldingen / Meerdere bestanden tegelijk afdrukken...
✏ Inhoud bewerken: Batch zoeken en vervangen over meerdere bestanden / Formaat van alle afbeeldingen wijzigen / Tabelrijen en -kolommen transponeren / Converteer tabel naar tekst...
🧹 Moeiteloos schoon: Veeg weg Extra ruimtes / Sectie-onderbrekingen / Alle koppen / Tekstvakken / hyperlinks / Ga voor meer verwijdergereedschappen naar onze Groep verwijderen...
➕ Creatieve invoegingen: Invoegen Duizend scheidingstekens / Vink vakjes aan / Radio knoppen / QR Code / Barcode / Diagonale lijntabel / Vergelijking bijschrift / Bijschrift bij afbeelding / Tabel titel / Meerdere afbeeldingen / Ontdek meer in de Groep invoegen...
???? Precisieselecties: Vaststellen specifieke pagina's / tafels / vormen / kop paragrafen / Verbeter de navigatie met meer Selecteer functies...
⭐ Sterverbeteringen: Navigeer snel naar elke locatie / automatisch herhaalde tekst invoegen / naadloos schakelen tussen documentvensters / 11 Conversiehulpmiddelen...