Preskoči na glavno vsebino

Kako odstraniti vse slike iz dokumenta v Wordu?

Kako želite to storiti, če želite v dokumentu odstraniti vse slike in ohraniti nespremenjeno oblikovanje? Ta vadnica vam bo pokazala nekaj zapletenih stvari za odstranitev vseh slik brez spreminjanja oblikovanja v dokumentu.

Odstranite vse slike iz dokumenta s funkcijo Najdi in zamenjaj
Odstranite vse slike iz dokumenta s kodo VBA
Z Kutools for Word enostavno odstranite vse slike iz dokumenta


Odstranite vse slike iz dokumenta s funkcijo Najdi in zamenjaj

Poišči in zamenjaj funkcija omogoča enostaven način za pretvorbo ali odstranjevanje vrednosti, zato jo lahko uporabite tudi za odstranjevanje vseh slik iz dokumenta.

Korak 1: kliknite Domov > Zamenjaj da odprete Poišči in zamenjaj okno;

2. korak: v Poišči in zamenjaj okno, kliknite na Več gumb za prikaz več Iskalnik In nato kliknite Poseben > Grafičnoin na koncu kliknite Zamenjaj vse . Oglejte si posnetek zaslona:

Opombe: lahko tudi vnesete ^g v Našli kaj neposredno zamenjajte s praznim poljem in kliknite na Zamenjaj vse gumb za odstranitev vseh slik iz dokumenta;

Zdaj se vse slike v trenutnih dokumentih takoj odstranijo, kot je prikazano spodaj.


Z Kutools for Word enostavno odstranite vse slike iz dokumenta:

O Odstrani slike uporabnost Kutools za Word vam lahko pomaga hitro odstraniti vse slike iz izbranega obsega ali celoten dokument, kot ga potrebujete. Oglejte si postopek, kot je prikazano na sliki spodaj. Prenesite in preizkusite zdaj! (60-dnevna prosta pot)


Odstranite vse slike iz dokumenta s kodo VBA

Uporaba kode VBA je še en lažji način odstranjevanja vseh slik iz dokumenta. Za odstranitev vseh slik iz dokumenta lahko uporabite kodo VBA na naslednji način.

Korak 1: Pritisnite tipko druga + F11 tipke za odpiranje Microsoft Visual Basic za uporabo okno;

Korak 2: kliknite Vstavi > Moduli, kopirajte in prilepite naslednjo kodo VBA v Moduli okno;

Korak 3: Kliknite na Run gumb za uporabo VBA.

Koda VBA: Odstrani vse slike iz dokumenta:

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

Zdaj se vse slike v trenutnih dokumentih takoj odstranijo, kot je prikazano spodaj.


Odstranite vse slike iz dokumenta s programom Kutools for Word

Kutools za Word omogoča najprimernejši način odstranjevanja vseh slik iz dokumenta. Odstrani lahko vse slike iz celotnega dokumenta ali vse slike iz izbranega dela dokumenta.

Kutools za Word : z več kot 100 priročnimi dodatki za Word, brezplačno poskusite brez omejitev 60 dni.

Odstranite slike iz obsega:

1. Izberite obseg, v katerem so slike, ki jih želite odstraniti, in nato s klikom uporabite ta pripomoček Kutools > Več > Odstrani slike da jih odstranite naenkrat. Oglejte si posnetek zaslona:

Odstrani slike iz celotnega dokumenta:

1. Samo kliknite pripomoček Kutools > Več > Odstrani slike ne da bi izbrali kateri koli del dokumenta. Potem a Kutools za Word Pojavi se pogovorno okno, ki vas opozori na odstranitev vseh slik. Kliknite Da da začnete odstranjevanje.

Zdaj se vse slike v trenutnih dokumentih takoj odstranijo, kot je prikazano spodaj.

Če želite brezplačno preskusiti to orodje, pojdite na brezplačno prenesete programsko opremo najprej in nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Najboljša pisarniška orodja za produktivnost

Kutools za Word - Izboljšajte svojo besedno izkušnjo z Over 100 Izjemne lastnosti!

🤖 Kutools AI pomočnik: Preoblikujte svoje pisanje z AI - Ustvarite vsebino  /  Prepiši besedilo  /  Povzemite dokumente  /  Povprašajte za informacije na podlagi dokumenta, vse v Wordu

📘 Obvladovanje dokumentov: Razdeljene strani  /  Spoji dokumente  /  Izvozi izbor v različnih formatih (PDF/TXT/DOC/HTML ...)  /  Paketna pretvorba v PDF  /  Izvozi strani kot slike  /  Natisnite več datotek hkrati...

Urejanje vsebine: Serijsko iskanje in zamenjava čez več datotek  /  Spremeni velikost vseh slik  /  Prenos vrstic in stolpcev tabele  /  Pretvori tabelo v besedilo...

🧹 Čiščenje brez napora: Pometite stran Dodatni prostori  /  Prelomi oddelkov  /  Vse glave  /  Besedilna polja  /  Hiperpovezave  / Za več orodij za odstranjevanje pojdite na naš Odstrani skupino...

Ustvarjalni vložki: Vstavi Tisoč ločila  /  Potrditvena polja  /  Radijske tipke  /  QR koda  /  Črtna koda  /  Tabela z diagonalno črto  /  Naslov enačbe  /  Opis slike  /  Naslov tabele  /  Več slik  / Odkrijte več v Vstavi skupino...

???? Natančne izbire: Natančna točka določene strani  /  mize  /  Oblike  /  odstavki naslova  / Izboljšajte navigacijo z več Izberite funkcije...

Izboljšave zvezdic: Hitra navigacija do katere koli lokacije  /  samodejno vstavljanje ponavljajočega se besedila  /  brez težav preklapljate med okni dokumentov  /  11 Orodja za pretvorbo...

???? Želite preizkusiti te funkcije? Kutools for Word ponuja a 60-dan brezplačni preskus, brez omejitev! 🚀
 
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