Ana içeriğe atla

Word'deki belgeden tüm resimler nasıl kaldırılır?

Bir belgedeki tüm resimleri kaldırmak ve tüm biçimlendirmeyi değiştirmeden tutmak istiyorsanız, nasıl yapabilirsiniz? Bu eğitim, belgedeki biçimlendirmeyi değiştirmeden tüm resimleri kaldırmanız için bazı zor şeyler gösterecektir.

Bul ve Değiştir işleviyle belgeden tüm resimleri kaldırın
VBA kodunu kullanarak tüm resimleri belgeden kaldırın
Kutools for Word ile tüm resimleri belgeden kolayca kaldırın


Bul ve Değiştir işleviyle belgeden tüm resimleri kaldırın

Bul ve Değiştir işlevi değer dönüştürme veya kaldırma için kolay bir yol sağlar, böylece belgedeki tüm resimleri kaldırmak için de kullanabilirsiniz.

Adım 1: Tıklayın Ana Sayfa > değiştirmek açmak için Bul ve Değiştir pencere;

2. Adım: Bul ve Değiştir pencere, tıklayın Daha daha fazlasını getirmek için düğme Ara Seçenekler'i ve ardından Özel > grafikve son olarak Tümünü Değiştir buton. Ekran görüntüsüne bakın:

not: ayrıca girebilirsiniz ^g içine Ne bul doğrudan kutusunu işaretleyin, değiştir kutusunu boş tutun ve ardından Tümünü Değiştir belgedeki tüm resimleri kaldırmak için düğme;

Şimdi mevcut belgelerdeki tüm resimler, aşağıda gösterilen ekran görüntüsü gibi hemen kaldırılır.


Kutools for Word ile tüm resimleri belgeden kolayca kaldırın:

The Resimleri Kaldır yarar Kutools for Word seçilen bir aralıktaki tüm resimleri veya ihtiyacınız olan tüm belgeyi hızlı bir şekilde kaldırmanıza yardımcı olabilir. Aşağıda gösterilen ekran görüntüsü gibi işleme bakın. Şimdi indirin ve deneyin! (60- günlük ücretsiz iz)


VBA kodunu kullanarak tüm resimleri belgeden kaldırın

VBA kodunu kullanmak, tüm resimleri belgeden kaldırmanın başka bir kolay yoludur. Belgeden tüm resimleri kaldırmak için aşağıdaki gibi bir VBA kodu kullanabilirsiniz.

Adım 1: tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulama için Microsoft Visual Basic pencere;

Adım 2: Tıklayın Ekle > modül, aşağıdaki VBA kodunu kopyalayıp modül pencere;

Adım 3: koşmak VBA'yı uygulamak için düğme.

VBA kodu: Belgeden tüm resimleri kaldırın:

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

Şimdi mevcut belgelerdeki tüm resimler, aşağıda gösterilen ekran görüntüsü gibi hemen kaldırılır.


Kutools for Word ile tüm resimleri belgeden kaldırın

Kutools for Word belgedeki tüm resimleri kaldırmanın en uygun yolunu sağlar. Belgenin tamamındaki tüm resimleri veya belgenin seçilen bölümündeki tüm resimleri kaldırabilir.

Kutools for Word : 100'den fazla kullanışlı Word eklentisiyle, herhangi bir sınırlama olmaksızın denemek için ücretsiz 60 Gün.

Bir aralıktaki resimleri kaldırın:

1. Lütfen kaldırmak istediğiniz resimleri içeren aralığı seçin ve ardından bu programı uygulayın. Kutools > Daha > Resimleri Kaldır onları bir kerede kaldırmak için. Ekran görüntüsüne bakın:

Belgenin tamamından resimleri kaldırın:

1. Sadece tıklayarak yardımcı programı etkinleştirin Kutools > Daha > Resimleri Kaldır belgenin herhangi bir bölümünü seçmeden. Sonra bir Kutools for Word iletişim kutusu, size tüm resimlerin kaldırıldığını hatırlatmak için açılıyor. Tıklayın Evet kaldırmaya başlamak için.

Şimdi mevcut belgelerdeki tüm resimler, aşağıda gösterilen ekran görüntüsü gibi hemen kaldırılır.

Bu yardımcı programı ücretsiz olarak denemek istiyorsanız, lütfen şu adrese gidin: yazılımı ücretsiz indirin önce ve sonra yukarıdaki adımlara göre işlemi uygulamaya gidin.


En İyi Ofis Üretkenlik Araçları

Kutools for Word - Over ile Kelime Deneyiminizi Yükseltin 100 Dikkat Çekici Özellikler!

🤖 Kutools Yapay Zeka Asistanı: Yazılarınızı AI ile dönüştürün - İçerik Oluştur  /  Metni Yeniden Yaz  /  Belgeleri Özetleyin  /  Bilgi İçin Arayın Belgeye dayalı, hepsi Word'de

📘 Belge Ustalığı: Sayfaları Böl  /  Belgeleri Birleştir  /  Seçimi Çeşitli Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...)  /  PDF'ye Toplu Dönüştürme  /  Sayfaları Görüntü Olarak Dışa Aktar  /  Aynı Anda Birden Çok Dosyayı Yazdırma...

İçerik Düzenleme: Toplu Bul ve Değiştir Birden Çok Dosyada  /  Tüm Resimleri Yeniden Boyutlandır  /  Tablo Satırlarını ve Sütunlarını Yer Değiştirme  /  Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Uzaklaşın Ekstra Alanlar  /  Bölüm Sonları  /  Tüm Başlıklar  /  Metin kutuları  /  Köprüler  / Daha fazla sökme aleti için sayfamıza gidin Grubu Kaldır...

Yaratıcı Ekler: Ekle Bin Ayırıcı  /  Onay Kutuları  /  Radyo Düğmeleri  /  QR Code  /  Barkod  /  Çapraz Çizgi Tablosu  /  Denklem Başlığı  /  Görüntü Başlık  /  Tablo başlığı  /  Çoklu Resimler  / Daha fazlasını şurada keşfedin: Grup Ekle...

🔍 Hassas Seçimler: Nokta tespiti belirli sayfalar  /  tablolar  /  şekiller  /  başlık paragrafları  / Gezinmeyi şununla geliştirin: Daha Özellikleri seçin...

Yıldız Geliştirmeleri: Herhangi bir konuma hızla gidin  /  tekrarlanan metni otomatik olarak ekle  /  belge pencereleri arasında sorunsuzca geçiş yapın  /  11 Dönüşüm Aracı...

👉 Bu özellikleri denemek ister misiniz? Kutools for Word şunları sunar: 60 günlük ücretsiz deneme, hiçbir sınırlama olmaksızın! ????
 
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