Jak spočítat počet obrázků v dokumentu Word?
Pokud v dokumentu aplikace Word existuje více grafik, které obsahují jak vložené obrázky, tak plovoucí tvary, nyní chcete spočítat počet těchto grafik v celém dokumentu, jak byste mohli rychle a správně získat počet obrázků?
Počítejte počet vložených obrázků pomocí funkce Najít a nahradit
Počítejte počet vložených obrázků i plovoucích tvarů pomocí kódu VBA
Počítejte počet vložených obrázků pomocí funkce Najít a nahradit
Projekt Najít a nahradit funkce v aplikaci Word vám pomůže spočítat počet vložených obrázků pouze rychle a snadno, postupujte takto:
1, klikněte Home > Najít > Rozšířené hledání, viz screenshot:
2. V Najít a nahradit v dialogovém okně pod Najít na kartě zadejte ^g do Najít to, co textové pole a poté zvolte Hlavní dokument z Nalézt v rozevírací seznam, viz screenshot:
3. A pak můžete vidět, že počet vložených obrázků v tomto dokumentu Word byl zobrazen jako následující snímek obrazovky:
Počítejte počet vložených obrázků i plovoucích tvarů pomocí kódu VBA
Výše uvedená metoda může spočítat pouze počet vložených obrázků, pokud jsou v dokumentu nějaké plovoucí tvary, nebudou se počítat. Následující kód VBA vám pomůže spočítat vložené obrázky i plovoucí tvary, udělejte to takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. Potom klepněte na tlačítko Vložit > Modul, zkopírujte a vložte pod kód do otevřeného prázdného modulu, viz screenshot:
Kód VBA: Spočítejte počet vložených obrázků i plovoucích tvarů:
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. Po vložení kódu stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám řekne, kolik vložených obrázků a plovoucích tvarů v tomto dokumentu Word, viz screenshot:
Doporučené nástroje produktivity slov
Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času
- Složité a opakované operace lze provádět jednorázově během několika sekund.
- Vložte více obrázků do složek do dokumentu Word najednou.
- Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
- Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
- Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...