Přejít k hlavnímu obsahu

Jak odstranit všechny obrázky z dokumentu v aplikaci Word?

Pokud chcete odstranit všechny obrázky a zachovat v dokumentu beze změny formátování, jak to můžete udělat? Tento výukový program vám ukáže některé složité věci, jak odstranit všechny obrázky beze změny formátování v dokumentu.

Odeberte všechny obrázky z dokumentu pomocí funkce Najít a nahradit
Odeberte všechny obrázky z dokumentu pomocí kódu VBA
Snadno odeberte všechny obrázky z dokumentu pomocí programu Kutools pro Word


Odeberte všechny obrázky z dokumentu pomocí funkce Najít a nahradit

Najít a nahradit Funkce poskytuje snadný způsob převodu nebo odebrání hodnoty, takže ji můžete také použít k odebrání všech obrázků z dokumentu.

Krok 1: Klepněte na tlačítko Domů > Nahradit k otevření Najít a nahradit okno;

Krok 2: V Najít a nahradit okno, klepněte na tlačítko Moře tlačítko, aby se zobrazilo více Vyhledávání Možnosti a potom klepněte na Speciální > Grafickýa nakonec klikněte na ikonu Nahradit vše knoflík. Viz screenshot:

Poznámka: můžete také zadat ^g do Najít to, co pole přímo, ponechte pole nahradit prázdným a poté klikněte na Nahradit vše tlačítko pro odstranění všech obrázků z dokumentu;

Nyní jsou všechny obrázky v aktuálních dokumentech okamžitě odstraněny, jak je uvedeno níže.


Snadné odstranění všech obrázků z dokumentu pomocí programu Kutools pro Word:

Projekt Odebrat obrázky užitečnost Kutools pro Word vám pomůže rychle odstranit všechny obrázky z vybraného rozsahu nebo z celého dokumentu podle potřeby. Podívejte se na níže uvedenou obrazovku. Stáhněte si a vyzkoušejte! (60-denní stezka zdarma)


Odeberte všechny obrázky z dokumentu pomocí kódu VBA

Použití kódu VBA je dalším snadnějším způsobem, jak odstranit všechny obrázky z dokumentu. K odstranění všech obrázků z dokumentu můžete použít kód VBA následujícím způsobem.

Krok 1: Stiskněte tlačítko Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikaci okno;

Krok 2: Klepněte na tlačítko Vložit > Modulzkopírujte a vložte následující kód VBA do Modul okno;

Krok 3: Klepněte na tlačítko Běh tlačítko pro použití VBA.

Kód VBA: Odebrat všechny obrázky z dokumentu:

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

Nyní jsou všechny obrázky v aktuálních dokumentech okamžitě odstraněny, jak je uvedeno níže.


Odeberte všechny obrázky z dokumentu pomocí Kutools pro Word

Kutools pro Word poskytuje nejpohodlnější způsob odstranění všech obrázků z dokumentu. Může odstranit všechny obrázky z celého dokumentu nebo všechny obrázky z vybrané části dokumentu.

Kutools pro Word : s více než 100 užitečnými doplňky Wordu, zdarma k vyzkoušení bez omezení 60 dny.

Odebrat obrázky z rozsahu:

1. Vyberte rozsah obsahující obrázky, které chcete odebrat, a poté kliknutím na ikonu použijte tento nástroj Kutools > Moře > Odebrat obrázky okamžitě je odstranit. Viz screenshot:

Odebrat obrázky z celého dokumentu:

1. Jednoduše povolte nástroj kliknutím Kutools > Moře > Odebrat obrázky bez výběru jakékoli části dokumentu. Pak Kutools pro Word Zobrazí se dialogové okno, které vám připomene odebrání všech obrázků. Klepněte na Ano zahájit odebírání.

Nyní jsou všechny obrázky v aktuálních dokumentech okamžitě odstraněny, jak je uvedeno níže.

Chcete-li mít bezplatnou zkušební verzi tohoto nástroje, přejděte na software si stáhněte zdarma nejprve a poté přejděte k použití operace podle výše uvedených kroků.


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah  /  Přepsat text  /  Shrnout dokumenty  /  Vyžádejte si informace na základě dokumentu, vše ve Wordu

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů  /  Změnit velikost všech obrázků  /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory  /  Sekce přestávky  /  Všechny záhlaví  /  Textová pole  /  Odkazy  / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  / Objevte více v Vložit skupinu...

???? Přesné výběry: Přesně konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  / Vylepšete navigaci pomocí vice Vyberte funkce...

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje...

???? Chcete si tyto funkce vyzkoušet? Kutools for Word nabízí a Denní zkušební doba 60, bez omezení! ????
Stažení zdarma     Více     Kup nyní
 
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