Bỏ qua nội dung chính

Làm cách nào để xóa tất cả ảnh khỏi tài liệu trong Word?

Nếu bạn muốn xóa tất cả ảnh và giữ nguyên tất cả định dạng trong tài liệu, bạn có thể làm như thế nào? Hướng dẫn này sẽ chỉ cho bạn một số thao tác phức tạp để xóa tất cả ảnh mà không thay đổi định dạng trong tài liệu.

Xóa tất cả ảnh khỏi tài liệu bằng chức năng Tìm và Thay thế
Xóa tất cả ảnh khỏi tài liệu bằng cách sử dụng mã VBA
Dễ dàng xóa tất cả ảnh khỏi tài liệu với Kutools cho Word


Xóa tất cả ảnh khỏi tài liệu bằng chức năng Tìm và Thay thế

Tìm và Thay thế hàm cung cấp một cách dễ dàng để chuyển đổi hoặc xóa giá trị, vì vậy bạn cũng có thể sử dụng nó để xóa tất cả ảnh khỏi tài liệu.

Bước 1: Nhấp Trang Chủ > Thay thế để mở Tìm và Thay thế cửa sổ;

Bước 2: Trong Tìm và Thay thế cửa sổ, nhấp vào Hơn nút để hiển thị thêm Tìm kiếm Tùy chọn, sau đó bấm Reduct ® > Đồ họavà cuối cùng nhấp vào Thay thế Tất cả cái nút. Xem ảnh chụp màn hình:

Chú thích: bạn cũng có thể nhập ^g vào Tìm trực tiếp, giữ hộp thay thế bằng trống và sau đó nhấp vào Thay thế Tất cả nút để xóa tất cả ảnh khỏi tài liệu;

Bây giờ tất cả các hình ảnh trong tài liệu hiện tại được xóa ngay lập tức như hình ảnh chụp màn hình bên dưới.


Dễ dàng xóa tất cả ảnh khỏi tài liệu với Kutools cho Word:

Sản phẩm Xóa ảnh tiện ích của Kutools cho Word có thể giúp bạn nhanh chóng xóa tất cả ảnh khỏi phạm vi đã chọn hoặc toàn bộ tài liệu khi bạn cần. Xem hoạt động như hình ảnh chụp màn hình bên dưới. Tải xuống và thử ngay bây giờ! (60-ngày đường mòn miễn phí)


Xóa tất cả ảnh khỏi tài liệu bằng cách sử dụng mã VBA

Sử dụng mã VBA là một cách khác dễ dàng hơn để xóa tất cả ảnh khỏi tài liệu. Bạn có thể sử dụng mã VBA như sau để xóa tất cả ảnh khỏi tài liệu.

Bước 1: Nhấn Khác + F11 phím để mở Microsoft Visual Basic cho ứng dụng cửa sổ;

Bước 2: Nhấp Chèn > Mô-đun, sao chép và dán mã VBA sau vào Mô-đun cửa sổ;

Bước 3: Nhấp vào chạy để áp dụng VBA.

Mã VBA: Xóa tất cả ảnh khỏi tài liệu:

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

Bây giờ tất cả các hình ảnh trong tài liệu hiện tại được xóa ngay lập tức như hình ảnh chụp màn hình bên dưới.


Xóa tất cả ảnh khỏi tài liệu với Kutools cho Word

Kutools cho Word cung cấp cách thuận tiện nhất để xóa tất cả ảnh khỏi tài liệu. Nó có thể xóa tất cả ảnh khỏi toàn bộ tài liệu hoặc tất cả ảnh từ phần đã chọn của tài liệu.

Kutools cho Word : với hơn 100 phần bổ trợ Word tiện dụng, miễn phí để thử mà không có giới hạn trong 60 ngày.

Xóa ảnh khỏi một phạm vi:

1. Vui lòng chọn phạm vi chứa ảnh bạn muốn xóa, sau đó áp dụng tiện ích này bằng cách nhấp vào Kutools > Hơn > Xóa ảnh để xóa chúng cùng một lúc. Xem ảnh chụp màn hình:

Xóa ảnh khỏi toàn bộ tài liệu:

1. Chỉ cần kích hoạt tiện ích bằng cách nhấp vào Kutools > Hơn > Xóa ảnh mà không cần chọn bất kỳ phần nào của tài liệu. Sau đó a Kutools cho Word hộp thoại hiện lên để nhắc bạn xóa tất cả ảnh. Nhấp chuột để bắt đầu gỡ bỏ.

Bây giờ tất cả các hình ảnh trong tài liệu hiện tại được xóa ngay lập tức như hình ảnh chụp màn hình bên dưới.

Nếu bạn muốn dùng thử miễn phí tiện ích này, vui lòng truy cập tải xuống miễn phí phần mềm đầu tiên, và sau đó đi đến áp dụng hoạt động theo các bước trên.


Công cụ năng suất văn phòng tốt nhất

Kutools cho Word - Nâng cao trải nghiệm sử dụng từ của bạn với Over 100 Các tính năng đáng chú ý!

🤖 Trợ lý AI của Kutools: Biến đổi bài viết của bạn bằng AI - Tạo nội dung  /  Viết lại văn bản  /  Tóm tắt tài liệu  /  Hỏi thông tin dựa trên tài liệu, tất cả đều có trong Word

📘 Làm chủ tài liệu: Chia trang  /  Hợp nhất tài liệu  /  Lựa chọn xuất khẩu ở nhiều định dạng khác nhau (PDF/TXT/DOC/HTML...)  /  Chuyển đổi hàng loạt sang PDF  /  Xuất trang dưới dạng hình ảnh  /  In nhiều tập tin cùng một lúchữu ích. Cảm ơn !

Chỉnh sửa nội dung: Tìm và thay thế hàng loạt trên nhiều tệp  /  Thay đổi kích thước tất cả hình ảnh  /  Hoán đổi hàng và cột của bảng  /  Chuyển bảng thành văn bảnhữu ích. Cảm ơn !

🧹 Dễ dàng làm sạch: Quét đi Không gian bổ sung  /  Phần ngắt  /  Tất cả các tiêu đề  /  Hộp văn bản  /  Các siêu liên kết  / Để biết thêm các công cụ xóa, hãy truy cập Xóa nhómhữu ích. Cảm ơn !

Phụ trang quảng cáo: Chèn Ngàn dấu phân cách  /  Hộp kiểm tra  /  Nút radio  /  Mã QR  /  Mã vạch  /  Bảng đường chéo  /  Chú thích phương trình  /  Hình ảnh Caption  /  Bảng chú thích  /  Nhiều Hình Ảnh  / Khám phá thêm trong Chèn nhómhữu ích. Cảm ơn !

???? Lựa chọn chính xác: Xác định trang cụ thể  /  bảng  /  hình dạng  /  đoạn văn tiêu đề  / Tăng cường điều hướng với chi tiết Chọn tính nănghữu ích. Cảm ơn !

Cải tiến sao: Điều hướng nhanh chóng đến bất kỳ vị trí nào  /  tự động chèn văn bản lặp đi lặp lại  /  chuyển đổi liền mạch giữa các cửa sổ tài liệu  /  11 công cụ chuyển đổihữu ích. Cảm ơn !

👉 Bạn muốn thử những tính năng này? Kutools cho Word cung cấp một 60 ngày dùng thử miễn phí, không có giới hạn! 🚀
 
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