Hvordan tælles antallet af billeder i et Word-dokument?

Hvis der er flere grafik i dit Word-dokument, der indeholder både integrerede billeder og flydende figurer, vil du nu tælle antallet af disse grafikker i hele dokumentet. Hvordan kan du få antallet af billeder hurtigt og korrekt?

Tæl antallet af indbyggede billeder med funktionen Find og erstat

Tæl antallet af både indbyggede billeder og flydende figurer med VBA-kode

Tæl antallet af indbyggede billeder med funktionen Find og erstat

Søg og erstat funktion i Word kan hjælpe dig med at tælle antallet af integrerede billeder kun hurtigt og nemt. Gør som følger:

1. Klik Home > Finde > Avanceret Find, se skærmbillede:

billeder til doktælling 1

2. I Søg og erstat under dialogboksen Finde fanen, skal du skrive ^g ind i Find hvad tekstfelt, og vælg derefter Hoveddokument fra Finde ind rulleliste, se skærmbillede:

billeder til doktælling 2

3. Og så kan du se antallet af de integrerede billeder i dette Word-dokument er vist som følgende skærmbillede vist:

billeder til doktælling 3

Tæl antallet af både indbyggede billeder og flydende figurer med VBA-kode

Ovenstående metode kan kun tælle antallet af integrerede billeder, hvis der er nogle flydende figurer i dokumentet, tælles de ikke. Følgende VBA-kode kan hjælpe dig med at tælle både de indbyggede billeder og flydende figurer, gør som dette:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik derefter på indsatte > Moduler, kopier og indsæt nedenstående kode i det åbnede blanke modul, se skærmbillede:

VBA-kode: Tæl antallet af både indbyggede billeder og flydende 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 indsat koden, skal du trykke på F5 nøgle til at køre denne kode, og der vises en hurtigboks for at fortælle dig, hvor mange indbyggede billeder og flydende former i dette Word-dokument, se skærmbillede:

billeder til doktælling 4