Note: The other languages of the website are Google-translated. Back to English

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:

počet dokumentů 1

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:

počet dokumentů 2

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čet dokumentů 3


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:

počet dokumentů 4



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. ...
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění