Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S'inscrire  \/ 
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 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:

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

doc compte images 1

2. Dans le Rechercher et remplacer boîte de dialogue, sous la Find 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



Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de votre temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.
Say something here...
symbols left.
You are guest
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.