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

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:

Du har nu möjlighet 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 det nu! (60-dagars 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å run 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änsning på 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.



Rekommenderade Word-produktivitetsverktyg

 

Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...
Sortera kommentarer efter
Kommentarer (5)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Din kod tar bara bort inlineshapes, överväg följande eftersom jag ibland har sett problem när jag använder samlingar Do While ActiveDocument.Shapes.count > 0 ActiveDocument.Shapes(1).Delete Loop Do While ActiveDocument.InlineShapes.count > 0 ActiveDocument.InlineShapes( 1).Delete Loop Jag använder dessa när jag ändrar en fil till enbart text. Jag konverterar också alla tabeller till tab-delmiterade Do While ActiveDocument.Tables.count > 0 ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs Loop Jag har inte sett några problem med do while-loopar, men har ibland vid radering från en samling som Jag spelar med jag använder alternativt .count för att få totalt antal objekt och använder en för nästa med ett steg -1 för att arbeta på dem baklänges. Förresten, jag jobbar på en Mac och objekt fungerar ibland roligt och vissa Windows VBA-objekt är inte ens tillgängliga.
bap
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket för detta hur man - det sparade mig TIMMAR av arbete med att ta bilder ur ett dokument!! nancy
Nancy
Denna kommentar minimerades av moderatoren på webbplatsen
Wow, ja tack. Flera andra tidigare matcher fungerade inte.
paul
Denna kommentar minimerades av moderatoren på webbplatsen
Jag vet inte men en del av grafiken fångas inte i ersätt-knappen.
jyoti
Denna kommentar minimerades av moderatoren på webbplatsen
Bra påminnelse om alternativet hitta & ersätt>speciellt>grafik!

Sparade mig så mycket jobb!
Crystine
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0  Tecken
Föreslagna platser