Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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 pouvez maintenant compter le nombre de ces graphiques dans le document entier. Comment pouvez-vous obtenir le nombre d'images rapidement et correctement?

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

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


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

Le bouton Rechercher et remplacer fonctionnalité dans Word peut vous aider à compter le nombre de photos en ligne seulement rapidement et facilement, s'il vous plaît faire comme suit:

1. Cliquez Accueil > Trouver > Recherche avancée, voir capture d'écran:

doc nombre d'images 1

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

doc nombre d'images 2

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

doc nombre d'images 3


Compter 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 existe des formes flottantes dans le document, elles ne seront pas comptabilisées. Le code VBA suivant peut vous aider à compter 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 est affichée pour vous dire combien d'images en ligne et de formes flottantes dans ce document Word, voir la capture d'écran:

doc nombre d'images 4




Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.