Hvordan tælles antallet af billeder i et Word-dokument?
At tælle antallet af billeder i et Word-dokument kan være nyttigt til forskellige formål, såsom kvalitetskontrol, overholdelse af retningslinjer eller blot af organisatoriske årsager. Manuel optælling af billeder i et langt dokument kan være kedeligt og udsat for fejl. Heldigvis er der effektive metoder til hurtigt og præcist at tælle antallet af billeder i et Word-dokument.
I denne vejledning vil vi guide dig gennem trinene til nemt at tælle antallet af billeder, hvilket hjælper dig med at administrere dit dokument mere effektivt.
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
Count the number of inline images using the Find and Replace feature
Søg og erstat feature in Word allows you to quickly count the number of inline images. Follow these steps:
- Klik Hjem > Finde > Avanceret Find.
- I Søg og erstat under dialogboksen Finde fane, skriv ^g ind i Find hvad text box. Then, select Hoveddokument fra Finde ind rulleliste.
- The number of inline images in the document will be displayed at the bottom of the dialog box.
Office-fanen: Bringer fanebladsgrænseflader til Word, Excel, PowerPoint... |
Forbedre din arbejdsgang nu. Lær mere om Office-fanen Gratis download |
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, copy and paste below code into the opened blank module,
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 key to run this code, and a prompt box is popped out to tell you how many inline images and floating shapes in this Word document,
Bedste kontorproduktivitetsværktøjer
Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!
🤖 Kutools AI-funktioner: Generer indhold / Omskriv tekst / Dokument Q&A / Få hurtige svar / Oversæt dokumenter / Polsk dokument (bevar format)...
📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...) / Batch Konverter til PDF...
✏ 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øring: Fej væk Ekstra pladser / Afsnit bryder / Tekstbokse / Hyperlinks / For mere fjernelse af værktøjer, gå til Fjern gruppe...
➕ Kreative indlæg: Indsæt Tusind adskillere / Afkrydsningsfelter / Radio knapper / QR kode / Stregkode / Flere billeder / Oplev mere i indsatte gruppe...
???? Præcisionsvalg: Find ud af Specifikke sider / tabeller / Former / Overskriftsparagraffer / Forbedre navigation med mere Type funktioner...
⭐ Stjerneforbedringer: Naviger til enhver placering / Auto-indsæt gentagen tekst / Skift mellem dokumentvinduer / 11 Konvertering Værktøjer...
Bedste kontorproduktivitetsværktøjer
Kutools for Word - 100+ værktøjer til Word
- 🤖 Kutools AI-funktioner: Generer, Omskriv, Opsummer, oversætte Dokumenter / Få hurtige svar / Polsk dokument (bevar format)
- 📘 Dokumentbeherskelse: Opdelt sider / Flet dokumenter / Batch Konverter til PDF
- ✏ Indholdsredigering: Batch Find og erstat / Ændr størrelse på alle billeder
- 🧹 Ubesværet rengøring: Fjern ekstra pladser / Fjern sektionsbrud
- ➕ Kreative indlæg: Indsæt tusinde separatorer / Indsæt afkrydsningsfelter / Opret QR-koder