Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S'inscrire  \/ 
x

or

Comment supprimer toutes les images du document dans Word?

Si vous souhaitez supprimer toutes les images et conserver la mise en forme inchangée dans un document, comment pouvez-vous faire? Ce didacticiel vous montrera quelques astuces pour supprimer toutes les images sans modifier la mise en forme du document.

Supprimer toutes les images du document par la fonction Rechercher et remplacer
Supprimer toutes les images du document à l'aide du code VBA
Supprimez facilement toutes les images du document avec Kutools for Word


Supprimer toutes les images du document par la fonction Rechercher et remplacer

Rechercher et remplacer La fonction fournit un moyen simple de convertir ou de supprimer des valeurs, vous pouvez donc également l'utiliser pour supprimer toutes les images du document.

Étape 1: cliquez sur Accueil > remplacer ouvrir le Rechercher et remplacer fenêtre;

Étape 2: dans le Rechercher et remplacer fenêtre, cliquez sur le Plus d'informations bouton pour en afficher plus Rechercher Options, puis cliquez sur Spécial > Graphique, et enfin cliquez sur le Remplacer tout bouton. Voir la capture d'écran:

Notes: vous pouvez également entrer ^g into the Trouvez ce que boîte directement, gardez la boîte de remplacement vide, puis cliquez sur le Remplacer tout bouton pour supprimer toutes les images du document;

Maintenant, toutes les images des documents actuels sont supprimées immédiatement comme illustré ci-dessous.


Supprimez facilement toutes les images du document avec Kutools for Word:

La Supprimer des images utilité de Kutools pour Word peut vous aider à supprimer rapidement toutes les images d'une plage sélectionnée ou du document entier selon vos besoins. Voir l'opération comme ci-dessous la capture d'écran montrée. Téléchargez et essayez-le maintenant! (Parcours gratuit de 60 jours)


Supprimer toutes les images du document à l'aide du code VBA

L'utilisation du code VBA est un autre moyen plus simple de supprimer toutes les images du document. Vous pouvez utiliser un code VBA comme suit pour supprimer toutes les images du document.

Étape 1: appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour Application fenêtre;

Étape 2: cliquez sur insérer > Module, copiez et collez le code VBA suivant dans le Module fenêtre;

Étape 3: cliquez sur le course bouton pour appliquer le VBA.

Code VBA: supprimer toutes les images du document:

Sub DitchPictures()
Dim objPic As InlineShape
For Each objPic In ActiveDocument.InlineShapes
objPic.Delete
Next objPic
End Sub

Maintenant, toutes les images des documents actuels sont supprimées immédiatement comme illustré ci-dessous.


Supprimer toutes les images du document avec Kutools for Word

Kutools pour Word fournit le moyen le plus pratique de supprimer toutes les images du document. Il peut supprimer toutes les images du document entier ou toutes les images de la partie sélectionnée du document.

Kutools pour Word : avec plus de 100 compléments Word pratiques, gratuit pour essayer sans limitation dans 60 jours.

Supprimer des images d'une plage:

1. Veuillez sélectionner la plage contenant les images que vous souhaitez supprimer, puis appliquez cet utilitaire en cliquant sur Kutools > Plus d'informations > Supprimer des images pour les supprimer immédiatement. Voir la capture d'écran:

Supprimer des images de l'ensemble du document:

1. Activez simplement l'utilitaire en cliquant sur Kutools > Plus d'informations > Supprimer des images sans sélectionner aucune partie du document. Puis un Kutools pour Word La boîte de dialogue apparaît pour vous rappeler la suppression de toutes les images. Cliquez sur Oui pour commencer la suppression.

Maintenant, toutes les images des documents actuels sont supprimées immédiatement comme illustré ci-dessous.

Si vous souhaitez avoir un essai gratuit de cet utilitaire, rendez-vous sur télécharger gratuitement le logiciel d'abord, puis appliquez l'opération selon les étapes ci-dessus.



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.
  • To post as a guest, your comment is unpublished.
    Crystine · 4 years ago
    Great reminder about the find & replace>special>graphics option!

    Saved me so much work!
  • To post as a guest, your comment is unpublished.
    jyoti · 4 years ago
    i dont know but some of the graphic is not capturing in replace button.
  • To post as a guest, your comment is unpublished.
    Paul · 5 years ago
    Wow, yes thank you. Several other previous matches did not work.
  • To post as a guest, your comment is unpublished.
    Nancy · 6 years ago
    Thank you so much for this how to - it saved me HOURS of work taking photos out of a document!!

    nancy
  • To post as a guest, your comment is unpublished.
    bap · 8 years ago
    Your code will only remove inlineshapes, consider the following as I have sometimes seen problems when using collections


    Do While ActiveDocument.Shapes.count > 0
    ActiveDocument.Shapes(1).Delete
    Loop

    Do While ActiveDocument.InlineShapes.count > 0
    ActiveDocument.InlineShapes(1).Delete
    Loop

    I use these when changing a file to text only. I also convert all tables to tab delmited

    Do While ActiveDocument.Tables.count > 0
    ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs
    Loop


    I have not seen any problems with do while loops, but have occasionally when deleting from a collection that I am playing with

    I alternatively use .count to get a total of items and use a for next with a step -1 to work on them backwards.

    By the way, I work on a Mac and objects sometimes act funny and some windows VBA objects are not even available.