Gå til hovedindhold

Hvordan fjernes alle billeder fra dokument i Word?

Hvis du vil fjerne alle billeder og beholde al formatering uændret i et dokument, hvordan kan du så gøre det? Denne vejledning vil vise dig nogle vanskelige ting for at fjerne alle billeder uden at ændre formateringen i dokumentet.

Fjern alle billeder fra dokumentet ved hjælp af funktionen Find og erstat
Fjern alle billeder fra dokumentet ved hjælp af VBA-kode
Fjern nemt alle billeder fra dokumentet med Kutools for Word


Fjern alle billeder fra dokumentet ved hjælp af funktionen Find og erstat

Søg og erstat funktionen giver en nem måde til værdikonvertering eller fjernelse, så du også kan bruge den til at fjerne alle billeder fra dokumentet.

Trin 1: Klik Home > udskifte at åbne Søg og erstat vindue;

Trin 2: I Søg og erstat vindue, skal du klikke på Mere knappen for at få mere at vide Søg Indstillinger, og klik derefter på Særlig > Grafiskog klik til sidst på Erstat alle knap. Se skærmbillede:

Bemærk: du kan også indtaste ^g ind i Find hvad i feltet direkte, hold udskiftningen med feltet tom, og klik derefter på Erstat alle knap for at fjerne alle billeder fra dokumentet;

Nu fjernes alle billeder i aktuelle dokumenter med det samme som vist nedenfor.


Fjern let alle billeder fra dokumentet med Kutools til Word:

Fjern billeder nytte af Kutools for Word kan hjælpe dig med hurtigt at fjerne alle billeder fra et udvalgt område eller hele dokumentet efter behov. Se betjeningen som vist nedenfor skærmbillede. Download og prøv det nu! (60-dag gratis spor)


Fjern alle billeder fra dokumentet ved hjælp af VBA-kode

Brug af VBA-kode er en anden nemmere måde at fjerne alle billeder fra dokumentet. Du kan bruge en VBA-kode som følger til at fjerne alle billeder fra dokumentet.

Trin 1: Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til anvendelse vindue;

Trin 2: Klik indsatte > Moduler, kopier og indsæt følgende VBA-kode i Moduler vindue;

Trin 3: Klik på Kør knappen for at anvende VBA.

VBA-kode: Fjern alle billeder fra dokumentet:

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

Nu fjernes alle billeder i aktuelle dokumenter med det samme som vist nedenfor.


Fjern alle billeder fra dokumentet med Kutools for Word

Kutools for Word giver den mest bekvemme måde at fjerne alle billeder fra dokumentet. Det kan fjerne alle billeder fra hele dokumentet eller alle billeder fra den valgte del af dokumentet.

Kutools for Word : med mere end 100 praktiske Word-tilføjelsesprogrammer, gratis at prøve uden begrænsning 60 dag.

Fjern billeder fra et interval:

1. Vælg venligst det område, der indeholder de billeder, du vil fjerne, og anvend derefter dette værktøj ved at klikke Kutools > Mere > Fjern billeder for at fjerne dem med det samme. Se skærmbillede:

Fjern billeder fra hele dokumentet:

1. Aktivér bare hjælpeprogrammet ved at klikke på Kutools > Mere > Fjern billeder uden at vælge nogen del af dokumentet. Så a Kutools for Word dialogboksen dukker op for at minde dig om at fjerne alle billeder. Klik på Ja for at starte fjernelsen.

Nu fjernes alle billeder i aktuelle dokumenter med det samme som vist nedenfor.

Hvis du vil have en gratis prøveversion af dette værktøj, skal du gå til download softwaren gratis først, og gå derefter til for at anvende handlingen i henhold til ovenstående trin.


Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-assistent: Transformer din skrivning med AI - Generer indhold  /  Omskriv tekst  /  Opsummer dokumenter  /  Spørg for information baseret på Dokument, alt sammen i Word

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...)  /  Batch Konverter til PDF  /  Eksporter sider som billeder  /  Udskriv flere filer på én gang...

Indholdsredigering: Batch Find og erstat på tværs af flere filer  /  Ændr størrelse på alle billeder  /  Transponer tabelrækker og kolonner  /  Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser  /  Afsnit bryder  /  Alle overskrifter  /  Tekstbokse  /  Hyperlinks  / For mere fjernelse af værktøjer, gå til vores Fjern gruppe...

Kreative indlæg: Indsæt Tusind adskillere  /  Afkrydsningsfelter  /  Radio knapper  /  QR kode  /  Stregkode  /  Diagonal linjebord  /  Ligningstekst  /  Billede Caption  /  Tabeltekst  /  Flere billeder  / Oplev mere i Indsæt gruppe...

???? Præcisionsvalg: Find ud af specifikke sider  /  tabeller  /  former  /  overskrifter  / Forbedre navigation med mere Vælg funktioner...

Stjerneforbedringer: Naviger hurtigt til ethvert sted  /  automatisk indsæt gentagende tekst  /  skifte problemfrit mellem dokumentvinduer  /  11 Konverteringsværktøjer...

???? Vil du prøve disse funktioner? Kutools for Word tilbyder en 60-dages gratis prøveperiode, uden begrænsninger! 🚀
 
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