Прескочи на основното съдържание

Как да премахнете всички снимки от документ в Word?

Автор: Аманда Ли Последна промяна: 2020-05-20

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

Премахнете всички снимки от документа чрез функцията за намиране и замяна
Премахнете всички снимки от документа с помощта на VBA код
Премахнете лесно всички снимки от документа с Kutools за Word


Премахнете всички снимки от документа чрез функцията за намиране и замяна

Търсене и заместване функцията предоставя лесен начин за преобразуване или премахване на стойност, така че можете да я използвате и за премахване на всички картини от документа.

Стъпка 1: Кликнете върху Начало > Сменете за да отворите Търсене и заместване прозорец;

Стъпка 2: В Търсене и заместване кликнете върху Повече бутон, за да изведете повече Търсене Опции и след това щракнете Специален > Графичени накрая щракнете върху Замести всички бутон. Вижте екранна снимка:

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

Сега всички снимки в текущите документи се премахват незабавно, както е показано на екранната снимка по-долу.


Премахнете лесно всички снимки от документа с Kutools за Word:

- Премахване на снимки полезност на Kutools за Word може да ви помогне бързо да премахнете всички снимки от избран диапазон или целия документ, както ви е необходимо. Вижте операцията, както е показано на екранната снимка по-долу. Изтеглете и опитайте сега! (60-дневна безплатна пътека)


Премахнете всички снимки от документа с помощта на VBA код

Използването на VBA код е друг по-лесен начин за премахване на всички снимки от документа. Можете да използвате VBA код, както следва, за да премахнете всички снимки от документа.

Стъпка 1: Натиснете бутона Друг + F11 за да отворите Microsoft Visual Basic за приложение прозорец;

Стъпка 2: Кликнете върху Поставете > Модули, копирайте и поставете следния 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. Моля, изберете диапазона, съдържащ снимките, които искате да премахнете, и след това приложете тази помощна програма, като щракнете Kutools > Повече > Премахване на снимки да ги премахнете наведнъж. Вижте екранна снимка:

Премахване на снимки от целия документ:

1. Просто активирайте помощната програма, като щракнете Kutools > Повече > Премахване на снимки без да избирате никоя част от документа. Тогава Kutools за Word диалоговият прозорец се появява, за да ви напомни за премахването на всички снимки. Кликнете Да за да започнете премахването.

Сега всички снимки в текущите документи се премахват незабавно, както е показано на екранната снимка по-долу.

Ако искате да имате безплатна пробна версия на тази помощна програма, моля, отидете на безплатно изтегляне на софтуера първо и след това преминете към прилагане на операцията според горните стъпки.


Най-добрите инструменти за продуктивност в офиса

Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!

🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание  /  Пренаписване на текст  /  Обобщаване на документи  /  Запитване за информация въз основа на Документ, всичко това в Word

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

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

🧹 Почистване без усилие: Изметете Допълнителни пространства  /  Прекъсвания на раздели  /  Всички заглавки  /  Текстови полета  /  Хипервръзки  / За повече инструменти за премахване се насочете към нашия Премахване на група...

Творчески вложки: Вмъкване Хилядни разделители  /  Квадратчета  /  Радио бутони  /  QR Code  /  Баркод  /  Таблица с диагонални линии  /  Надпис на уравнение  /  Надпис на изображението  /  Надпис на таблица  /  Множество снимки  / Открийте повече в Вмъкване на група...

🔍 Прецизни селекции: Точна точка конкретни страници  /  таблици  /  форми  /  заглавни параграфи  / Подобрете навигацията с още Изберете функции...

Звездни подобрения: Навигирайте бързо до всяко място  /  автоматично вмъкване на повтарящ се текст  /  безпроблемно превключване между прозорците на документи  /  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