Gå til hovedindhold

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


Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

Dyk ned i de fremhævede funktioner nedenfor eller klik her for at udforske den fulde kraft af Kutools for Word.

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/XLSX)  /  Batch Konverter til PDF  /  Eksporter sider som billeder  /  Udskriv flere filer på én gang ...

Indholdsredigering: Batch Find og erstat på tværs af flere filer   /  Ændr størrelse på alle billeder   /  Transponer tabelrækker og kolonner  /  Konverter tabel til tekst ...

🧹 Ubesværet rengøringFej væk Ekstra pladser  /  Afsnit bryder  /   Alle overskrifter  /  Tekstbokse  /  Hyperlinks  /  For flere fjernelsesværktøjer, gå til vores Fjerngruppe

Kreative indlæg: indsatte Tusind adskillere  /  Afkrydsningsfelter  /  Radio knapper  /  QR kode  /  Stregkode  /  Diagonal linjebord  /  Ligningstekst  /  Billede Caption  /  Tabeltekst  /  Flere billeder  /  Opdag mere i vores Indsæt-gruppe

???? Præcisionsvalg: Find bestemte sider  /  tabeller  /  former  /  overskrifter  /  Naviger nemt ved hjælp af vores udvalgte gruppe

Stjerneforbedringer: Naviger hurtigt til ethvert sted  /  automatisk indsæt gentagende tekst  /  skifte problemfrit mellem dokumentvinduer  /  11 Konverteringsværktøjer ...

Transformer dine Word-opgaver med Kutools. 👉 Download med 30-dages prøveversion nu 🚀.

Læs mere       Gratis download      Køb
 
Comments (1)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
helpfulllll😀😁
Rated 5 out of 5
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations