Перейти до основного матеріалу

Як видалити всі зображення з документа в Word?

Якщо ви хочете видалити всі зображення та зберегти всі форматування в документі без змін, як ви можете це зробити? Цей підручник покаже вам кілька хитрих речей, щоб видалити всі зображення без зміни форматування в документі.

Видаліть усі зображення з документа за допомогою функції Знайти та Замінити
Видаліть усі зображення з документа за допомогою коду VBA
Легко видаляйте всі зображення з документа за допомогою Kutools для Word


Видаліть усі зображення з документа за допомогою функції Знайти та Замінити

Знайти і замінити Ця функція забезпечує простий спосіб перетворення або видалення значень, тому ви також можете використовувати її для видалення всіх зображень із документа.

Крок 1: клацніть Головна > заміщати відкрити Знайти і замінити вікно;

Крок 2: у Знайти і замінити вікно, натисніть кнопку більше , щоб показати більше Пошук Параметри, а потім клацніть спеціальний > Графічнийі, нарешті, клацніть на замінити всі кнопку. Дивіться знімок екрана:

примітки: Ви також можете ввести ^g в Знайти те, що безпосередньо, залиште заміну на поле порожнім, а потім клацніть на замінити всі кнопка для видалення всіх зображень з документа;

Тепер усі зображення з поточних документів негайно видаляються, як показано на знімку екрана.


Легко видаліть усі зображення з документа за допомогою Kutools для Word:

Команда Видаліть картинки корисність Kutools для Word може допомогти вам швидко видалити всі зображення із вибраного діапазону або цілий документ, як вам потрібно. Дивіться операцію, як показано на знімку екрана нижче. Завантажте та спробуйте зараз! (60-денна безкоштовна траса)


Видаліть усі зображення з документа за допомогою коду VBA

Використання коду VBA - ще один простіший спосіб видалити всі зображення з документа. Ви можете використовувати код VBA таким чином, щоб видалити всі зображення з документа.

Крок 1: Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для програми вікно;

Крок 2: клацніть Insert > Модулі, скопіюйте та вставте наступний код VBA в Модулі вікно;

Крок 3: натисніть кнопку прогін , щоб застосувати VBA.

Код VBA: Видалити всі зображення з документа:

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

Тепер усі зображення з поточних документів негайно видаляються, як показано на знімку екрана.


Видаліть усі зображення з документа за допомогою Kutools для Word

Kutools для Word забезпечує найзручніший спосіб видалення всіх зображень із документа. Він може видалити всі зображення з цілого документа або всі зображення з вибраної частини документа.

Kutools для Word : з більш ніж 100 зручними надбудовами Word, безкоштовно спробувати без обмежень 60 днів.

Видалення зображень із діапазону:

1. Будь ласка, виберіть діапазон, що містить зображення, які ви хочете видалити, а потім застосуйте цю утиліту, клацнувши Кутулс > більше > Видаліть картинки щоб відразу їх видалити. Дивіться знімок екрана:

Видалити фотографії з цілого документа:

1. Просто увімкніть утиліту, натиснувши Кутулс > більше > Видаліть картинки без виділення будь-якої частини документа. Тоді a Kutools для Word спливає діалогове вікно, щоб нагадати вам про видалення всіх зображень. Клацніть Так щоб розпочати видалення.

Тепер усі зображення з поточних документів негайно видаляються, як показано на знімку екрана.

Якщо ви хочете отримати безкоштовну пробну версію цієї утиліти, перейдіть на безкоштовно завантажити програмне забезпечення - спочатку, а потім перейдіть до застосування операції, як описано вище.


Найкращі інструменти продуктивності офісу

Kutools для Word - Підніміть свій досвід Word із Over 100 Чудові особливості!

🤖 Kutools AI Assistant: змініть свій текст за допомогою ШІ - Створення вмісту  /  Переписати текст  /  Узагальнити документи  /  Звертайтеся за інформацією на основі Документа, все в Word

📘 Майстерність документів: Розділити сторінки  /  Об’єднати документи  /  Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...)  /  Пакетне перетворення в PDF  /  Експортувати сторінки як зображення  /  Друк кількох файлів одночасно...

Редагування змісту: Пакетний пошук та заміна між кількома файлами  /  Змінити розмір усіх зображень  /  Транспонування рядків і стовпців таблиці  /  Перетворити таблицю в текст...

🧹 Очищення без зусиль: Змітати Зайві простори  /  Розбиття розділів  /  Усі заголовки  /  Текстові поля  /  Гіперпосилання  / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...

Творчі вставки: Вставити Роздільники тисяч  /  Прапорці  /  радіо кнопки  /  QR-код  /  Штрих-код  /  Таблиця діагональних ліній  /  Заголовок рівняння  /  Підпис зображення  /  Заголовок таблиці  /  Кілька зображень  / Дізнайтеся більше в Вставити групу...

???? Точність вибору: Точне визначення конкретні сторінки  /  Таблиці  /  форми  /  заголовок абзаців  / Покращте навігацію за допомогою більше Виберіть функції...

Покращення зірок: Швидка навігація до будь-якого місця  /  автоматичне вставлення повторюваного тексту  /  плавно перемикатися між вікнами документів  /  11 Інструменти перетворення...

👉 Хочете спробувати ці функції? Kutools для Word пропонує a 60-денна безкоштовна пробна версія, без обмежень! ????
 
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