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

如何從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 彈出對話框,提醒您刪除所有圖片。 請點擊 開始刪除。

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

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



推薦的Word生產力工具

 

Kutools For Word - 超過 100 Word 的高級功能, 節省您的 50% 時間

  • 複雜和重複的操作可以在幾秒鐘內完成一次處理。
  • 跨文件夾一次將多個圖像插入Word文檔。
  • 將文件夾中的多個Word文件合併並合併為所需順序。
  • 根據標題,分節符或其他條件將當前文檔拆分為單獨的文檔。
  • 在Doc和Docx之間,Docx和PDF之間轉換文件,用於常見轉換和選擇的工具集合等...
按評論排序
留言 (5)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
您的代碼只會刪除內聯形狀,請考慮以下問題,因為我有時會在使用集合時看到問題 Do While ActiveDocument.Shapes.count > 0 ActiveDocument.Shapes(1).Delete Loop Do While ActiveDocument.InlineShapes.count > 0 ActiveDocument.InlineShapes( 1).Delete Loop 我只在將文件更改為文本時使用這些。 我還將所有表格轉換為製表符分隔的 Do While ActiveDocument.Tables.count > 0 ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByTabs Loop 我沒有看到 do while 循環有任何問題,但偶爾從集合中刪除我正在玩我或者使用 .count 來獲取項目總數,並使用 for next 和 step -1 來向後處理它們。 順便說一句,我在 Mac 上工作,對像有時表現得很有趣,有些 Windows VBA 對象甚至不可用。
網站主持人對此評論進行了最小化
非常感謝您提供的方法 - 它為我節省了數小時從文檔中拍照的工作!! 南希
網站主持人對此評論進行了最小化
哇,是的,謝謝。 之前的其他幾場比賽都沒有奏效。
網站主持人對此評論進行了最小化
我不知道,但有些圖形沒有在替換按鈕中捕獲。
網站主持人對此評論進行了最小化
關於查找和替換>特殊>圖形選項的重要提醒!

為我節省了很多工作!
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護