Note: The other languages of the website are Google-translated. Back to English

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 Đặc biệt > Đồ 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:

Mô hình 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 Word được đề xuất

 

Kutools cho Word - Hơn 100 tính năng nâng cao cho Word, tiết kiệm 50% thời gian của bạn

  • Các hoạt động phức tạp và lặp đi lặp lại có thể được thực hiện xử lý một lần trong vài giây.
  • Chèn nhiều hình ảnh trên các thư mục vào tài liệu Word cùng một lúc.
  • Hợp nhất và kết hợp nhiều tệp Word trên các thư mục thành một với thứ tự mong muốn của bạn.
  • Chia tài liệu hiện tại thành các tài liệu riêng biệt theo tiêu đề, ngắt phần hoặc các tiêu chí khác.
  • Chuyển đổi tệp giữa Doc và Docx, Docx và PDF, bộ sưu tập các công cụ để chuyển đổi và lựa chọn phổ biến, v.v.
Nhận xét (5)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã của bạn sẽ chỉ xóa inlineshapes, hãy xem xét những điều sau vì đôi khi tôi đã gặp sự cố khi sử dụng bộ sưu tập Do While ActiveDocument.Shapes.count> 0 ActiveDocument.Shapes (1) .Delete Loop Do While ActiveDocument.InlineShapes.count> 0 ActiveDocument.InlineShapes ( 1) .Delete Loop Tôi sử dụng chúng khi chỉ thay đổi một tệp thành văn bản. Tôi cũng chuyển đổi tất cả các bảng thành tab Do while ActiveDocument.Tables.count bị xóa không giới hạn> 0 ActiveDocument.Tables (1) .ConvertToText Separator: = wdSeparateByTabs Loop Tôi không gặp bất kỳ sự cố nào với vòng lặp do while, nhưng đôi khi xóa khỏi bộ sưu tập. Tôi đang chơi với tôi, cách khác, tôi sử dụng .count để nhận tổng số vật phẩm và sử dụng a for next với bước -1 để xử lý chúng ngược lại. Nhân tiện, tôi làm việc trên máy Mac và các đối tượng đôi khi hoạt động hài hước và một số đối tượng VBA trong windows thậm chí không có sẵn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều về cách làm này - nó đã giúp tôi tiết kiệm được GIỜ làm việc để chụp ảnh từ tài liệu !! nancy
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Wow, vâng, cảm ơn bạn. Một số trận đấu trước đó không hoạt động.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
tôi không biết nhưng một số hình ảnh không chụp trong nút thay thế.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Lời nhắc tuyệt vời về tùy chọn tìm và thay thế> đặc biệt> đồ họa!

Đã tiết kiệm cho tôi rất nhiều công việc!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL