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

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

Het 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 > Geavanceerd zoeken, zie screenshot:

doc count afbeeldingen 1

2. In de Zoeken en vervangen dialoogvenster onder het Vind tab, typ het ^g in de Zoeken naar tekstvak en kies vervolgens Hoofd document van de Vinden in vervolgkeuzelijst, zie screenshot:

doc count afbeeldingen 2

3. En dan kunt u zien dat het aantal inline-afbeeldingen in dit Word-document is weergegeven als het volgende screenshot:

doc count afbeeldingen 3


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:

doc count afbeeldingen 4



Aanbevolen Word-productiviteitstools

 

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

  • Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
  • Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
  • Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Comments (0)
Nog geen beoordelingen. Beoordeel als eerste!
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties