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

如何从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 弹出对话框,提醒您删除所有图片。 请点击 开始删除。

现在,立即删除当前文档中的所有图片,如下图所示。

如果您想免费试用该实用程序,请转到 免费下载软件 首先,然后按照上述步骤进行操作。



推荐的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保护