Przejdź do głównej zawartości

Jak usunąć wszystkie zdjęcia z dokumentu w programie Word?

Jeśli chcesz usunąć wszystkie obrazy i zachować niezmienione formatowanie w dokumencie, jak możesz to zrobić? Ten samouczek pokaże Ci kilka trudnych rzeczy, aby usunąć wszystkie obrazy bez zmiany formatowania w dokumencie.

Usuń wszystkie obrazy z dokumentu za pomocą funkcji Znajdź i zamień
Usuń wszystkie zdjęcia z dokumentu za pomocą kodu VBA
Z łatwością usuwaj wszystkie zdjęcia z dokumentu za pomocą Kutools for Word


Usuń wszystkie obrazy z dokumentu za pomocą funkcji Znajdź i zamień

Znajdowanie i zamienianie zapewnia łatwy sposób konwersji lub usunięcia wartości, więc można jej również użyć do usunięcia wszystkich obrazów z dokumentu.

Krok 1: Kliknij Strona Głowna > zastąpić otworzyć Znajdowanie i zamienianie okno;

Krok 2: W Znajdowanie i zamienianie kliknij przycisk Więcej przycisk, aby wyświetlić więcej Szukaj Opcje, a następnie kliknij Specjalny > Graficznyi na koniec kliknij Zamień wszystko przycisk. Zobacz zrzut ekranu:

Note: możesz również wejść ^g do Znajdź co pole bezpośrednio, pozostaw pole zastępowania pustym, a następnie kliknij Zamień wszystko przycisk, aby usunąć wszystkie zdjęcia z dokumentu;

Teraz wszystkie zdjęcia w aktualnych dokumentach są natychmiast usuwane, jak pokazano poniżej.


Z łatwością usuń wszystkie zdjęcia z dokumentu za pomocą Kutools for Word:

Połączenia Usuń zdjęcia użyteczność Kutools dla Worda może pomóc w szybkim usunięciu wszystkich obrazów z wybranego zakresu lub całego dokumentu, zgodnie z potrzebami. Zobacz operację, jak pokazano poniżej. Pobierz i wypróbuj teraz! (60-dzień wolny szlak)


Usuń wszystkie zdjęcia z dokumentu za pomocą kodu VBA

Użycie kodu VBA to kolejny łatwiejszy sposób na usunięcie wszystkich obrazów z dokumentu. Możesz użyć kodu VBA w następujący sposób, aby usunąć wszystkie obrazy z dokumentu.

Krok 1: Naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic dla aplikacji okno;

Krok 2: Kliknij wstawka > Moduł, skopiuj i wklej następujący kod VBA do pliku Moduł okno;

Krok 3: Kliknij run przycisk, aby zastosować VBA.

Kod VBA: Usuń wszystkie zdjęcia z dokumentu:

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

Teraz wszystkie zdjęcia w aktualnych dokumentach są natychmiast usuwane, jak pokazano poniżej.


Usuń wszystkie zdjęcia z dokumentu za pomocą Kutools for Word

Kutools dla Worda zapewnia najwygodniejszy sposób usunięcia wszystkich obrazów z dokumentu. Może usunąć wszystkie obrazy z całego dokumentu lub wszystkie obrazy z wybranej części dokumentu.

Kutools dla Worda : z ponad 100 przydatnymi dodatkami do Worda, za darmo spróbować bez ograniczeń w 60 dni.

Usuń zdjęcia z zakresu:

1. Wybierz zakres zawierający zdjęcia, które chcesz usunąć, a następnie zastosuj to narzędzie, klikając Kutools > Więcej > Usuń zdjęcia aby je natychmiast usunąć. Zobacz zrzut ekranu:

Usuń zdjęcia z całego dokumentu:

1. Po prostu włącz narzędzie, klikając Kutools > Więcej > Usuń zdjęcia bez zaznaczania jakiejkolwiek części dokumentu. Następnie Kutools dla Worda wyskakuje okno dialogowe przypominające o usunięciu wszystkich zdjęć. Kliknij Tak aby rozpocząć usuwanie.

Teraz wszystkie zdjęcia w aktualnych dokumentach są natychmiast usuwane, jak pokazano poniżej.

Jeśli chcesz skorzystać z bezpłatnej wersji próbnej tego narzędzia, przejdź do bezpłatnie pobrać oprogramowanie najpierw, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Najlepsze narzędzia biurowe

Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!

Zapoznaj się z wyróżnionymi funkcjami poniżej lub kliknij tutaj, aby poznać pełną moc Kutools for Word.

📘 Znajomość dokumentów: Podziel strony  /  Scal dokumenty  /  Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/XLSX)  /  Wsadowa konwersja do formatu PDF  /  Eksportuj strony jako obrazy  /  Drukuj wiele plików jednocześnie ...

Edycja treści: Znajdź i zamień partii w wielu plikach   /  Zmień rozmiar wszystkich zdjęć   /  Transponuj wiersze i kolumny tabeli  /  Konwertuj tabelę na tekst ...

🧹 Łatwe czyszczenieWymieć Dodatkowe przestrzenie  /  Podziały sekcji  /   Wszystkie nagłówki  /  Pola tekstowe  /  Hiperłącza  /  Aby uzyskać więcej narzędzi do usuwania, przejdź do naszej grupy usuwania

Kreatywne wstawki: wstawka Tysiące separatorów  /  Pola wyboru  /  Przyciski Radio  /  Kod QR  /  kod kreskowy  /  Tabela linii ukośnych  /  Podpis równania  /  Tytuł Zdjęcia  /  Podpis tabeli  /  Wiele zdjęć  /  Odkryj więcej w naszej grupie wkładek

🔍 Precyzyjne wybory: Wskaż konkretne strony  /  stoły  /  kształty  /  nagłówki akapitów  /  Nawiguj z łatwością, korzystając z naszej grupy Select

Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji  /  automatyczne wstawianie powtarzającego się tekstu  /  płynnie przełączaj się pomiędzy oknami dokumentów  /  11 Narzędzia konwersji ...

Przekształć swoje zadania Worda za pomocą Kutools. 👉 Pobierz teraz z 30-dniową wersją próbną .

 
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