跳到主要內容

如何從Word中的文檔中刪除所有圖片?

如果要刪除所有圖片並在文檔中保持所有格式不變,該怎麼辦? 本教程將向您展示一些棘手的事情,它們可以刪除所有圖片而不更改文檔中的格式。

通過查找和替換功能從文檔中刪除所有圖片
使用VBA代碼從文檔中刪除所有圖片
使用Kutools for Word輕鬆刪除文檔中的所有圖片


通過查找和替換功能從文檔中刪除所有圖片

查找和替換 功能提供了一種簡單的方法來進行值轉換或刪除,因此您也可以將其用於刪除文檔中的所有圖片。

步驟1:點擊 首頁 > 更換 打開 查找和替換 窗口;

步驟2:在 查找和替換 窗口,點擊 更多 按鈕以顯示更多 檢索 選項,然後單擊 特別 > 圖形,最後點擊 “全部替換” 按鈕。 看截圖:

備註:您也可以輸入 ^g查找內容 直接將其替換為空白框,然後單擊 “全部替換” 按鈕從文檔中刪除所有圖片;

現在,立即刪除當前文檔中的所有圖片,如下圖所示。


使用Kutools for Word輕鬆刪除文檔中的所有圖片:

刪除圖片 的效用 Kutools for 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 for Word從文檔中刪除所有圖片

Kutools for Word 提供了最方便的方法來從文檔中刪除所有圖片。 它可以刪除整個文檔中的所有圖片或文檔中所選部分的所有圖片。

Kutools for Word :具有100多個方便的Word加載項, 免費試用,不受限制 60.

從範圍中刪除圖片:

1.請選擇包含要刪除圖片的範圍,然後通過單擊應用此實用程序 庫工具 > 更多 > 刪除圖片 立即刪除它們。 看截圖:

從整個文檔中刪除圖片:

1.只需通過單擊啟用該實用程序 庫工具 > 更多 > 刪除圖片 而不選擇文檔的任何部分。 然後一個 Kutools for Word 彈出對話框,提醒您刪除所有圖片。 請點擊 開始刪除。

現在,立即刪除當前文檔中的所有圖片,如下圖所示。

如果您想免費試用該實用程序,請轉到 免費下載軟件 首先,然後按照上述步驟進行操作。


最佳辦公生產力工具

Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!

🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容  /  重寫文字  /  總結文件  /  查詢資料 基於文檔,全部在Word中

📘 文件掌握: 分頁  /  合併文件  /  以各種格式匯出選擇(PDF/TXT/DOC/HTML...)  /  批次轉換為PDF  /  將頁面匯出為圖像  /  一次列印多個文件...

內容編輯: 批量查找和替換 跨多個文件  /  調整所有圖片的大小  /  轉置表行和列  /  將表格轉換為文字...

🧹 輕鬆清潔: 移開 多餘的空間  /  分節符  /  所有標題  /  文本框  /  超鏈接  / 如需更多拆卸工具,請前往我們的 刪除組...

創意插入: 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  / 發現更多 插入組...

🔍 精準選擇:精確定位 特定頁面  /    /  形狀  /  標題段落  / 增強導航功能 更多 選擇功能...

星級增強: 快速導航至任何位置  /  自動插入重複文字  /  在文檔視窗之間無縫切換  /  11 轉換工具...

???? 想嘗試這些功能嗎? Kutools for Word 提供了 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