Comment compter le nombre d'images dans un document Word?

Si votre document Word contient plusieurs graphiques contenant à la fois des images en ligne et des formes flottantes, vous souhaitez maintenant compter le nombre de ces graphiques dans l'ensemble du document, comment pouvez-vous obtenir le nombre d'images rapidement et correctement?

Comptez le nombre d'images en ligne avec la fonction Rechercher et remplacer

Comptez le nombre d'images en ligne et de formes flottantes avec le code VBA

Comptez le nombre d'images en ligne avec la fonction Rechercher et remplacer

La Rechercher et remplacer La fonctionnalité de Word peut vous aider à compter le nombre d'images intégrées uniquement rapidement et facilement, procédez comme suit:

1Cliquez sur Accueil > Trouvez > Recherche avancée, voir capture d'écran:

doc compte images 1

2. Dans le Rechercher et remplacer boîte de dialogue, sous la Trouvez onglet, tapez le ^g into the Trouvez ce que zone de texte, puis choisissez Document principal du Retrouver dans liste déroulante, voir capture d'écran:

doc compte images 2

3. Et puis vous pouvez voir le nombre d'images en ligne dans ce document Word a été affiché comme capture d'écran suivante:

doc compte images 3

Comptez le nombre d'images en ligne et de formes flottantes avec le code VBA

La méthode ci-dessus ne peut compter que le nombre d'images en ligne, s'il y a des formes flottantes dans le document, elles ne seront pas comptées. Le code VBA suivant peut vous aider à compter à la fois les images en ligne et les formes flottantes, procédez comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Puis clique insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert, voir capture d'écran:

Code VBA: comptez le nombre d'images en ligne et de formes flottantes:

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. Après avoir collé le code, appuyez sur F5 clé pour exécuter ce code, et une boîte de dialogue s'affiche pour vous indiquer le nombre d'images en ligne et de formes flottantes dans ce document Word, voir capture d'écran:

doc compte images 4