在前面分享的“10秒批量提取Word圖片，幫你減少90%的復制粘貼工作！”一文中，為大家講解了如何快速批量保存Word文檔中圖片的快捷方法，反晌不錯。

就有小伙伴留言，說最近遇到這么一個問題：老板丟來一份Word文檔，要求將文檔中的所有圖片刪除，只保留文字。打開文檔一看，里面有上百張圖片，一張張地刪，估計得刪個半個小時吧！問有沒有什么好的解決方法？

類似上面這種坑爹的事情，我想，在日常工作中絕對不止這位小伙伴一個人遇到，如果你是一張張的去處理圖片？那有你加班的。

通常情況下，Word圖片分為嵌入型圖片和非嵌入型圖片2種。

所謂嵌入型，就是把圖片當文字處理，圖片會像字符一樣固定在某個位置。

非嵌入型，則比較靈活，可根據(jù)排版需要設置圖片的位置，它包括四周型、緊密型、穿越型、上下型、文字上方和文字下方等。

當咱們插入圖片后，點擊【圖片工具】-【格式】-【環(huán)繞文字】按鈕，在彈出的菜單中可設置圖片的嵌入方式。

如果文檔中全都是嵌入型的圖片，要想一次性刪除干凈，我們可通過“查找和替換”功能來批量清除。

01

查找和替換

操作方法：

（1）打開Word文檔，點擊【開始】-【編輯】-【替換】按鈕，或按【Ctrl+H】組合鍵，打開“查找和替換”對話框。

（2）在“查找內容”文本框中輸入【^g】。

（3）“替換為”文本框為空，不需輸入任何內容。

（4）單擊【全部替換】按鈕，圖片就一次性被全部刪除啦！

技巧提示：打開“查找與替換”對話框后，將鼠標定位在“查找內容"文本框中，然后點擊【更多】-【特殊格式】按鈕，選擇【圖形】選項。此時，”查找內容“文本框中會自動填入”^g“，”替換為“文本框為空，單擊【全部替換】按鈕，同樣可刪除所有圖片。

如果文檔中是非嵌入型的圖片，又該怎么辦呢？教大家一個方法，就是利用VBA可以輕松搞定。

02

利用VBA

操作方法：

（1）點擊【開發(fā)工具】-【VB】按鈕，或者按【Alt+F11】組合鍵。打開VBA編輯窗口。

（2）然后點擊【插入】-【模塊】，然后輸入以下代碼。

Sub PicDel()

    Dim doc As Document, i&, n&, S As Shape

    Set doc = ActiveDocument

    If doc.Shapes.Count = 0 Then Exit Sub

    n = doc.Shapes.Count

    For i = n To 1 Step -1

        Set S = doc.Shapes(i)

        If S.Type = 13 Then S.Delete

    Next

End Sub

（3）按【F5】鍵或點擊【運行】-【運行子過程/用戶窗體】即可，關閉VBA編輯窗口，可看到圖片被全部刪除了。

同理，如果文檔中既有嵌入型圖片，又有非嵌入型圖片，只需將上述2個方法都用上就能完美避坑啦！

今天的分享就到這里，希望對大家有用！

Word學習交流請加QQ群：816626786

做Word大神，快速提升工作效率，部落窩教育《Word極速貫通班》直播課全心為你！

掃下方二維碼關注公眾號，可隨時隨地學習Word：

相關推薦：

Word批量修改字體，1秒就搞定，不再加班!

美化表格數(shù)據(jù)，Word高手這樣做，居然3招就搞定了！

Word也支持3D模型，可直接在文檔中瀏覽360度全景圖

Word中如何像在紙上用筆勾線那樣畫出文章重點？

版權申明：

本文作者小蝦；同時部落窩教育享有專有使用權。若需轉載請聯(lián)系部落窩教育。