Hoppa till huvudinnehåll

Hur tar jag bort alla bilder från dokument i Word?

Om du vill ta bort alla bilder och hålla all formatering oförändrad i ett dokument, hur kan du göra det? Denna handledning visar några knepiga saker för att ta bort alla bilder utan att ändra formatering i dokumentet.

Ta bort alla bilder från dokumentet med funktionen Sök och ersätt
Ta bort alla bilder från dokumentet med hjälp av VBA-kod
Ta enkelt bort alla bilder från dokument med Kutools for Word


Ta bort alla bilder från dokumentet med funktionen Sök och ersätt

Sök och ersätt -funktionen är ett enkelt sätt för värdekonvertering eller borttagning, så du kan också använda den för att ta bort alla bilder från dokumentet.

Steg 1: Klicka Hem > ersätta att öppna Sök och ersätt fönster;

Steg 2: I Sök och ersätt fönstret, klicka på Snarare knappen för att ta upp mer Sök Alternativ och klicka sedan på Special > Grafiskoch slutligen klicka på Ersätt alla knapp. Se skärmdump:

Anmärkningar: du kan också komma in ^g i Hitta det rutan direkt, håll ersättningen tom och klicka sedan på Ersätt alla knapp för att ta bort alla bilder från dokumentet;

Nu tas alla bilder i aktuella dokument bort omedelbart enligt nedanstående skärmdump.


Ta enkelt bort alla bilder från dokument med Kutools for Word:

Smakämnen Ta bort bilder nytta av Kutools för Word kan hjälpa dig att snabbt ta bort alla bilder från ett valt intervall eller hela dokumentet efter behov. Se operationen som visas nedan. Ladda ner och prova nu! (60- dag gratis spår)


Ta bort alla bilder från dokumentet med hjälp av VBA-kod

Att använda VBA-kod är ett annat enklare sätt att ta bort alla bilder från dokumentet. Du kan använda en VBA-kod enligt följande för att ta bort alla bilder från dokumentet.

Steg 1: Tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikation fönster;

Steg 2: Klicka Insert > Modulerna, kopiera och klistra in följande VBA-kod i Modulerna fönster;

Steg 3: Klicka på Körning knappen för att tillämpa VBA.

VBA-kod: Ta bort alla bilder från dokumentet:

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

Nu tas alla bilder i aktuella dokument bort omedelbart enligt nedanstående skärmdump.


Ta bort alla bilder från dokument med Kutools for Word

Kutools för Word ger det enklaste sättet att ta bort alla bilder från dokumentet. Det kan ta bort alla bilder från hela dokumentet eller alla bilder från den valda delen av dokumentet.

Kutools för Word : med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsningar 60 dagar.

Ta bort bilder från ett intervall:

1. Välj det intervall som innehåller bilderna du vill ta bort och använd sedan det här verktyget genom att klicka Kutools > Snarare > Ta bort bilder för att ta bort dem på en gång. Se skärmdump:

Ta bort bilder från hela dokumentet:

1. Aktivera bara verktyget genom att klicka Kutools > Snarare > Ta bort bilder utan att välja någon del av dokumentet. Då en Kutools för Word dialogrutan dyker upp för att påminna dig om att alla bilder har tagits bort. Klick Ja för att starta borttagningen.

Nu tas alla bilder i aktuella dokument bort omedelbart enligt nedanstående skärmdump.

Om du vill ha en gratis testversion av det här verktyget, gå till ladda ner programvaran gratis först och sedan tillämpa operationen enligt ovanstående steg.


Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll  /  Skriv om text  /  Sammanfatta dokument  /  Fråga för information baserat på dokument, allt i Word

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/HTML...)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt...

Innehållsredigering: Batch Hitta och ersätt över flera filer  /  Ändra storlek på alla bilder  /  Transponera tabellrader och kolumner  /  Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /  Alla rubriker  /  Textrutor  /  Hyperlänkar  / För fler borttagningsverktyg, gå till vår Ta bort gruppen...

Kreativa inlägg: Föra in Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  / Upptäck mer i Infoga grupp...

🔍 Precisionsval: Precisera specifika sidor  /  Tabellerna  /  former  /  rubrikerna  / Förbättra navigering med mer Välj funktioner...

Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg...

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀
 
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