Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe het aantal afbeeldingen in een Word-document tellen?

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 het aantal afbeeldingen snel en correct ophalen?

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 slechts snel en eenvoudig te tellen, doe dit als volgt:

1. Klikken Home > Vind > Geavanceerd zoekenzie screenshot:

doc tel afbeeldingen 1

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

doc tel afbeeldingen 2

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

doc tel 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 je helpen om zowel de inline-afbeeldingen als zwevende vormen te tellen, doe dit als volgt:

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Dan klikken bijvoegsel > 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 een promptvenster wordt uitgeklapt om u te vertellen hoeveel inline afbeeldingen en zwevende vormen in dit Word-document, zie screenshot:

doc tel afbeeldingen 4




Aanbevolen Word-productiviteitstools

Kutools For Word - meer dan 100 geavanceerde functies voor Microsoft Word, sla uw 50% tijd op

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop 1, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, en zo verder ...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.