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 odstraňte všechny obrázky z dokumentu pomocí Kutools for 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.


Snadno odstraňte všechny obrázky z dokumentu pomocí Kutools for Word:

Projekt Odebrat obrázky užitečnost Kutools for 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.


Odstraňte všechny obrázky z dokumentu pomocí Kutools for Word

Kutools for 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 for 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 for 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 for Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools for Word.

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX)  /  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ámahySmést pryč Extra prostory  /  Sekce přestávky  /   Všechny záhlaví  /  Textová pole  /  Odkazy  /  Další nástroje pro odstraňování najdete v naší skupině pro odstranění

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 naší skupině Insert

???? Přesné výběry: Označte konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  /  Procházejte se snadno pomocí naší Select Group

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 ...

Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.

Více       Stažení zdarma      Nákup
 
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