Loncat ke daftar isi utama

Bagaimana cara menghapus semua gambar dari dokumen di Word?

Jika Anda ingin menghapus semua gambar dan tidak mengubah semua pemformatan dalam dokumen, bagaimana Anda bisa melakukannya? Tutorial ini akan menunjukkan beberapa hal rumit untuk menghapus semua gambar tanpa mengubah format di dokumen.

Hapus semua gambar dari dokumen dengan fungsi Find and Replace
Hapus semua gambar dari dokumen dengan menggunakan kode VBA
Hapus semua gambar dengan mudah dari dokumen dengan Kutools for Word


Hapus semua gambar dari dokumen dengan fungsi Find and Replace

Cari dan Ganti Fungsi menyediakan cara mudah untuk mengubah atau menghapus nilai, sehingga Anda juga dapat menggunakannya untuk menghapus semua gambar dari dokumen.

Langkah 1: Klik Beranda > menggantikan untuk membuka Cari dan Ganti jendela;

Langkah 2: Di Cari dan Ganti jendela, klik More tombol untuk menampilkan lebih banyak Pencarian Opsi, lalu klik Khusus > Grafis, dan terakhir klik Ganti Semua tombol. Lihat tangkapan layar:

Note: Anda juga bisa masuk ^g ke dalam Temukan apa kotak secara langsung, biarkan kotak ganti dengan kosong dan kemudian klik Ganti Semua tombol untuk menghapus semua gambar dari dokumen;

Sekarang semua gambar dalam dokumen saat ini dihapus segera seperti gambar di bawah ini.


Hapus semua gambar dengan mudah dari dokumen dengan Kutools for Word:

Grafik Hapus Gambar kegunaan Kutools for Word dapat membantu Anda dengan cepat menghapus semua gambar dari rentang yang dipilih atau seluruh dokumen yang Anda butuhkan. Lihat operasi seperti gambar di bawah ini. Unduh dan coba sekarang! (60- jalur bebas hari)


Hapus semua gambar dari dokumen dengan menggunakan kode VBA

Menggunakan kode VBA adalah cara lain yang lebih mudah untuk menghapus semua gambar dari dokumen. Anda dapat menggunakan kode VBA sebagai berikut untuk menghapus semua gambar dari dokumen.

Langkah 1: Tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela;

Langkah 2: Klik Menyisipkan > Modul, salin dan tempel kode VBA berikut ke file Modul jendela;

Langkah 3: Klik Run tombol untuk menerapkan VBA.

Kode VBA: Hapus semua gambar dari dokumen:

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

Sekarang semua gambar dalam dokumen saat ini dihapus segera seperti gambar di bawah ini.


Hapus semua gambar dari dokumen dengan Kutools for Word

Kutools for Word menyediakan cara termudah untuk menghapus semua gambar dari dokumen. Itu dapat menghapus semua gambar dari seluruh dokumen atau semua gambar dari bagian dokumen yang dipilih.

Kutools for Word : dengan lebih dari 100 add-in Word yang praktis, bebas untuk mencoba tanpa batasan dalam 60 hari-hari.

Hapus gambar dari jarak:

1. Pilih rentang berisi gambar yang ingin Anda hapus, lalu terapkan utilitas ini dengan mengklik Kutools > More > Hapus Gambar untuk menghapusnya sekaligus. Lihat tangkapan layar:

Hapus gambar dari seluruh dokumen:

1. Aktifkan saja utilitas tersebut dengan mengklik Kutools > More > Hapus Gambar tanpa memilih bagian mana pun dari dokumen. Kemudian a Kutools for Word kotak dialog muncul untuk mengingatkan Anda menghapus semua gambar. Klik Yes untuk mulai menghapus.

Sekarang semua gambar dalam dokumen saat ini dihapus segera seperti gambar di bawah ini.

Jika Anda ingin mencoba utilitas ini secara gratis, buka unduh perangkat lunak gratis pertama, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.


Alat Produktivitas Kantor Terbaik

Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!

🤖 Asisten AI Kutools: Ubah tulisan Anda dengan AI - Hasilkan Konten  /  Menulis Ulang Teks  /  Meringkas Dokumen  /  Menanyakan Informasi berdasarkan Dokumen, semuanya dalam Word

📘 Penguasaan Dokumen: Halaman Terpisah  /  Gabungkan Dokumen  /  Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...)  /  Konversi Batch ke PDF  /  Ekspor Halaman sebagai Gambar  /  Cetak Banyak File sekaligus...

Pengeditan Isi: Temukan dan Ganti Batch di Banyak File  /  Ubah Ukuran Semua Gambar  /  Ubah Urutan Baris dan Kolom Tabel  /  Ubah Tabel menjadi Teks...

🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra  /  Bagian Istirahat  /  Semua Header  /  Teks box  /  Hyperlink  / Untuk alat penghapus lainnya, kunjungi kami Hapus Grup...

Sisipan Kreatif: Memasukkan Seribu Pemisah  /  Kotak Centang  /  Tombol Radio  /  Kode QR  /  barcode  /  Tabel Garis Diagonal  /  Keterangan Persamaan  /  Keterangan gambar  /  Keterangan Tabel  /  Banyak Gambar  / Temukan lebih lanjut di Sisipkan Grup...

🔍 Pilihan Presisi: Tepat halaman tertentu  /  tabel  /  bentuk  /  paragraf judul  / Tingkatkan navigasi dengan lebih Pilih fitur...

Peningkatan Bintang: Navigasi dengan cepat ke lokasi mana pun  /  menyisipkan teks berulang secara otomatis  /  beralih antar jendela dokumen dengan mulus  /  11 Alat Konversi...

👉 Ingin mencoba fitur-fitur tersebut? Kutools for Word menawarkan a Uji coba gratis 60-hari, tanpa batasan! 🚀
 
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