Salt la conținutul principal

Cum se elimină toate imaginile din document în Word?

Dacă doriți să eliminați toate imaginile și să păstrați toate formatările neschimbate într-un document, cum puteți face? Acest tutorial vă va arăta câteva lucruri dificile pentru a elimina toate imaginile fără a modifica formatarea din document.

Eliminați toate imaginile din document prin funcția Găsiți și înlocuiți
Eliminați toate imaginile din document utilizând codul VBA
Eliminați cu ușurință toate imaginile din document cu Kutools pentru Word


Eliminați toate imaginile din document prin funcția Găsiți și înlocuiți

Găsiți și înlocuiți funcția oferă o modalitate ușoară de conversie sau eliminare a valorii, astfel încât să o puteți utiliza și pentru eliminarea tuturor imaginilor din document.

Pasul 1: Faceți clic pe Inițial > Înlocui pentru a deschide Găsiți și înlocuiți fereastră;

Pasul 2: În Găsiți și înlocuiți fereastra, faceți clic pe Mai Mult pentru a afișa mai multe Caută Opțiuni, apoi faceți clic pe Special > Graficși, în cele din urmă, faceți clic pe Înlocuiește-le pe toate buton. Vedeți captura de ecran:

notițe: poti intra si tu ^g în Gaseste ce caseta direct, păstrați înlocuirea cu caseta goală și apoi faceți clic pe Înlocuiește-le pe toate buton pentru a elimina toate imaginile din document;

Acum toate imaginile din documentele actuale sunt eliminate imediat după cum se arată în imaginea de mai jos.


Eliminați cu ușurință toate imaginile din document cu Kutools pentru Word:

Eliminați imaginile utilitatea Kutools pentru Cuvânt vă poate ajuta să eliminați rapid toate imaginile dintr-un interval selectat sau din întregul document după cum aveți nevoie. Vedeți operațiunea așa cum este prezentată imaginea de mai jos. Descărcați și încercați acum! (60- traseu liber de o zi)


Eliminați toate imaginile din document utilizând codul VBA

Utilizarea codului VBA este un alt mod mai ușor de a elimina toate imaginile din document. Puteți utiliza un cod VBA după cum urmează pentru a elimina toate imaginile din document.

Pasul 1: Apăsați tasta Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicație fereastră;

Pasul 2: Faceți clic pe Insera > Module, copiați și lipiți următorul cod VBA în Module fereastră;

Pasul 3: Faceți clic pe Alerga pentru a aplica VBA.

Cod VBA: Eliminați toate imaginile din document:

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

Acum toate imaginile din documentele actuale sunt eliminate imediat după cum se arată în imaginea de mai jos.


Eliminați toate imaginile din document cu Kutools pentru Word

Kutools pentru Cuvânt oferă cel mai convenabil mod de a elimina toate imaginile din document. Poate elimina toate imaginile din întregul document sau toate imaginile din partea selectată a documentului.

Kutools pentru Cuvânt : cu mai mult de 100 de suplimente Word utile, liber să încercați fără limitări 60 zile.

Eliminați imaginile dintr-un interval:

1. Selectați intervalul care conține imaginile pe care doriți să le eliminați, apoi aplicați acest utilitar făcând clic pe Kutools > Mai Mult > Eliminați imaginile pentru a le scoate deodată. Vedeți captura de ecran:

Eliminați imaginile din întregul document:

1. Doar activați utilitarul făcând clic pe Kutools > Mai Mult > Eliminați imaginile fără a selecta nicio parte a documentului. Apoi o Kutools pentru Cuvânt se afișează caseta de dialog pentru a vă reaminti eliminarea tuturor imaginilor. Clic Da pentru a începe eliminarea.

Acum toate imaginile din documentele actuale sunt eliminate imediat după cum se arată în imaginea de mai jos.

Dacă doriți să aveți o încercare gratuită a acestui utilitar, vă rugăm să accesați descărcați gratuit software-ul mai întâi, apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

Scufundați-vă în caracteristicile evidențiate de mai jos sau faceți clic aici pentru a explora întreaga putere a Kutools for Word.

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/XLSX)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan ...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere   /  Redimensionați toate imaginile   /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text ...

🧹 Curățare fără efortÎndepărtați Spații suplimentare  /  Secțiuni pauze  /   Toate anteturile  /  Casete text  /  hiperlinkuri  /  Pentru mai multe instrumente de eliminare, accesați grupul nostru de eliminare

Inserții creative: Insera Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  /  Descoperiți mai multe în grupul nostru de inserări

???? Selectii de precizie: Identificați anumite pagini  /  tabele  /  forme  /  paragrafele de titlu  /  Navigați cu ușurință folosind grupul nostru Select

Îmbunătățiri de stele: Navigați rapid în orice locație  /  inserarea automată a textului repetitiv  /  comutați fără probleme între ferestrele documentelor  /  11 Instrumente de conversie ...

Transformați-vă sarcinile Word cu Kutools. 👉 Descărcați acum cu o perioadă de încercare de 30 de zile 🚀.

 
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Great reminder about the find & replace>special>graphics option!

Saved me so much work!
This comment was minimized by the moderator on the site
i dont know but some of the graphic is not capturing in replace button.
This comment was minimized by the moderator on the site
Wow, yes thank you. Several other previous matches did not work.
This comment was minimized by the moderator on the site
Thank you so much for this how to - it saved me HOURS of work taking photos out of a document!! nancy
This comment was minimized by the moderator on the site
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.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations