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 Domů > 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