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:

doc count afbeeldingen 1

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:

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