跳到主要内容

如何从Word中的文档中删除所有图片?

如果要删除所有图片并在文档中保持所有格式不变,该怎么办? 本教程将向您展示一些棘手的事情,以便在不更改文档格式的情况下删除所有图片。

通过查找和替换功能从文档中删除所有图片
使用VBA代码从文档中删除所有图片
使用 Kutools for Word 轻松删除文档中的所有图片


通过查找和替换功能从文档中删除所有图片

查找和替换 功能提供了一种简单的方法来进行值转换或删除,因此您也可以将其用于删除文档中的所有图片。

步骤1:点击 主页 > 更换 打开 查找和替换 窗口;

步骤2: 查找和替换 窗口,点击 更多 按钮以显示更多 搜索 选项,然后单击 Special > 图形,最后点击 “全部替换” 按钮。 看截图:

备注:您也可以输入 ^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  /  将页面导出为图像  /  一次打印多个文件...

内容编辑: 批量查找和替换 跨多个文件  /  调整所有图片的大小  /  转置表行和列  /  将表格转换为文字...

🧹 轻松清洁: 移开 多余的空间  /  分节符  /  所有标题  /  文本框  /  超链接  / 如需更多拆卸工具,请前往我们的 删除组...

创意插入: 插 千位分隔符  /  复选框  /  单选按钮  /  扫码支付  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  / 发现更多 插入组...

🔍 精准选择:精确定位 特定页面  /    /  形状  /  标题段落  / 增强导航功能 更多 选择功能...

星级增强: 快速导航至任何位置  /  自动插入重复文本  /  在文档窗口之间无缝切换  /  11 转换工具...

👉 想尝试这些功能吗? Kutools for Word 提供了 60-day免费试用,没有任何限制! 🚀
 
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