Перейти к основному содержанию

Как удалить все картинки из документа в Word?

Если вы хотите удалить все изображения и сохранить все форматирование в документе без изменений, как вы можете это сделать? Из этого туториала Вы узнаете, как удалить все изображения без изменения форматирования документа.

Удалите все изображения из документа с помощью функции поиска и замены
Удалите все изображения из документа с помощью кода VBA
Легко удаляйте все изображения из документа с помощью Kutools for Word


Удалите все изображения из документа с помощью функции поиска и замены

Найти и заменить Функция предоставляет простой способ преобразования или удаления значений, поэтому вы также можете использовать ее для удаления всех изображений из документа.

Шаг 1: нажмите Главная > Замените для открытия Найти и заменить окно;

Шаг 2: в Найти и заменить окно, нажмите Больше кнопка, чтобы открыть больше Поиск Параметры, а затем щелкните Особый > графический, и, наконец, нажмите Заменить все кнопка. Смотрите скриншот:

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

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


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

Ассоциация Удалить изображения полезности Kutools for Word может помочь вам быстро удалить все изображения из выбранного диапазона или всего документа по мере необходимости. Смотрите операцию, как показано на скриншоте ниже. Скачайте и попробуйте прямо сейчас! (60-дневная бесплатная трасса)


Удалите все изображения из документа с помощью кода VBA

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

Шаг 1: нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно;

Шаг 2: нажмите Вставить > Модули, скопируйте и вставьте следующий код VBA в Модули окно;

Шаг 3: нажмите Run кнопку, чтобы применить VBA.

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

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

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


Удалите все изображения из документа с помощью Kutools for Word

Kutools for Word предоставляет наиболее удобный способ удалить все изображения из документа. Он может удалить все изображения из всего документа или все изображения из выбранной части документа.

Kutools for Word : с более чем 100 удобными надстройками Word, бесплатно попробовать без ограничений в 60 дня.

Удалите картинки из диапазона:

1. Выберите диапазон, содержащий изображения, которые вы хотите удалить, а затем примените эту утилиту, нажав Кутулс > Больше > Удалить изображения удалить их сразу. Смотрите скриншот:

Удалите изображения из всего документа:

1. Просто включите утилиту, нажав Кутулс > Больше > Удалить изображения без выделения какой-либо части документа. Потом Kutools for Word диалоговое окно появляется, чтобы напомнить вам об удалении всех изображений. Нажмите Да чтобы начать удаление.

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

Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.


Лучшие инструменты для офисной работы

Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!

🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент  /  Переписать текст  /  Обобщение документов  /  Запросить информацию на основе документа, все в Word

📘 Владение документами: Разделить страницы  /  Объединить документы  /  Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...)  /  Пакетное преобразование в PDF  /  Экспортировать страницы как изображения  /  Печать нескольких файлов одновременно...

Редактирование содержания: Пакетный поиск и замена через несколько файлов  /  Изменить размер всех изображений  /  Транспонировать строки и столбцы таблицы  /  Преобразовать таблицу в текст...

🧹 Легкая очистка: Убрать Дополнительные места  /  Разрывы разделов  /  Все заголовки  /  Текстовые поля  /  Гиперссылки  / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...

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

???? Точный выбор: Точно определить конкретные страницы  /  Эта таблица  /  формы  /  заголовки абзацев  / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...

Звездные улучшения: Быстро перемещайтесь в любое место  /  автоматическая вставка повторяющегося текста  /  плавно переключаться между окнами документов  /  11 инструментов преобразования...

👉 Хотите попробовать эти функции? Kutools for Word предлагает 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