Note: The other languages of the website are Google-translated. Back to English

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



Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetřete 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (5)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Váš kód odstraní pouze inlineshapes, zvažte následující, protože jsem někdy viděl problémy při používání kolekcí Do While ActiveDocument.Shapes.count > 0 ActiveDocument.Shapes(1).Delete Loop Do While ActiveDocument.InlineShapes.count > 0 ActiveDocument.InlineShapes( 1).Odstranit smyčku Tyto používám při změně souboru pouze na text. Také převádím všechny tabulky na Do While ActiveDocument.Tables.count > 0 ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs Loop Nezaznamenal jsem žádné problémy se smyčkami do while, ale občas jsem se vyskytl při mazání z kolekce, která Hraji si s Alternativně používám .count k získání celkového počtu položek a pomocí a pro další s krokem -1 na nich pracuji pozpátku. Mimochodem, pracuji na Macu a objekty někdy působí vtipně a některé Windows objekty VBA nejsou ani dostupné.
Tento komentář byl moderátorem webu minimalizován
Moc vám za to děkuji - ušetřilo mi to HODINY práce s focením z dokumentu!! Nancy
Tento komentář byl moderátorem webu minimalizován
Páni, ano, děkuji. Několik dalších předchozích zápasů nevyšlo.
Tento komentář byl moderátorem webu minimalizován
Nevím, ale některá grafika se nezachytává v tlačítku nahradit.
Tento komentář byl moderátorem webu minimalizován
Skvělá připomínka možnosti najít a nahradit>speciální>grafika!

Ušetřil mi tolik práce!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL