Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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

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


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

Удалить фотографии полезности Kutools for Word может помочь вам быстро удалить все изображения из выбранного диапазона или всего документа по мере необходимости. См. Операцию, как показано ниже.

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


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

Популярные
Удивительно! Используйте эффективные вкладки в Word (Office), такие как Chrome, Firefox и New Internet Explorer!

Узнать больше Скачать бесплатно

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

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

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

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

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


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

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

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

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

Шаг 3: нажмите прогон для применения VBA.

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

Sub DitchPictures () Dim objPic As InlineShape для каждого объекта в ActiveDocument.InlineShapes objPic.Delete Next objPic End Sub

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


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

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

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

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

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

Удалите снимки со всего документа:

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

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

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


Office Tab - Вкладка Просмотр, редактирование и управление несколькими документами в Word:

Вкладка «Office» предоставляет интерфейс с вкладками в виде веб-браузеров, таких как Google Chrome, новые версии Internet Explorer и Firefox для Microsoft Word. Это будем быть инструментом, экономящим время и незаменимым в вашей работе. Смотрите ниже демо:

Нажмите для бесплатной пробной версии Office Tab!

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




Рекомендуемые инструменты для повышения производительности Word

Kutools For Word - больше, чем расширенные возможности 100 для Microsoft Word, сэкономьте время 50%

  • Сложные и повторяющиеся операции могут быть выполнены одноразовой обработкой за считанные секунды.
  • Вставьте несколько изображений из папок в документ Word одновременно.
  • Объединяйте и объединяйте несколько файлов Word в разных папках в нужном вам порядке.
  • Разделите текущий документ на отдельные документы в соответствии с заголовком 1, разрывом раздела или другими критериями.
  • Конвертировать файлы между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора, и так далее...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Crystine · 1 years ago
    Great reminder about the find & replace>special>graphics option!

    Saved me so much work!
  • To post as a guest, your comment is unpublished.
    jyoti · 2 years ago
    i dont know but some of the graphic is not capturing in replace button.
  • To post as a guest, your comment is unpublished.
    Paul · 2 years ago
    Wow, yes thank you. Several other previous matches did not work.
  • To post as a guest, your comment is unpublished.
    Nancy · 3 years ago
    Thank you so much for this how to - it saved me HOURS of work taking photos out of a document!!

    nancy
  • To post as a guest, your comment is unpublished.
    bap · 5 years ago
    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.